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Appendix  A 

TGAP  GROUP  ADDITIVITY  DATA  LIBRARY 

The  Group  Additivity  Data  Library  is  the  permanent  source  of  thermo¬ 
chemical  data  of  the  TGAP  program.  These  data  were  derived  from  Benson's 
book  (1).  The  data  are  listed  below  in  three  separate  tables.  A  few  revis¬ 
ions  are  included  in  the  tables.  These  were  obtained  directly  through  the 
courtesy  of  Dr.  Sidney  Benson,  via  telephone  communication. 

The  heat  capacity  data  of  Benson  has  been  curve  fitted  to  the  equation 

2  4 

Cp  =  cq  +  cj  T  +  c^  T  t  Cj  T  ,  The  program  makes  use  of  these  coefficients 
instead  of  the  tabular  heat  capacity  data  to  compute  the  various  thermo¬ 
dynamic  properties  of  the  molecule.  The  values  of  the  coefficients  are  listed 
in  the  tables  together  with  the  corresponding  value  for  the  heat  of  formation 
and  entropy  at  298  K. 

A.  1  THERMOCHEMICAL  GROUP  CONTRIBUTIONS 

Table  A-l  contains  the  Thermochemical  group  contributions  for  hydrocarbons 
and  for  oxygen-  and  nitrogen- containing  compounds.  The  table  constitutes 
a  listing  of  a  printout  option  of  the  program  (See  Section  3.  1.  1). 

In  the  table,  the  composition  of  the  groups  is  defined  by  specific  symbols. 

In  addition  to  the  symbols  C,  H,  O  and  N  which  have  their  usual  chemical 
significance  other  symbols  are  also  used.  These  are  defined  below: 

Definition 
-C  =  C 

-C  5  C 

-  C  (in  benzene) 

C 


1 


Symbol 


Definition 


A 

c  C 

-  C 

Ni 

-N 

C 

N  2 

-N 

N 

Fhc  t  ore  atom  of  the  group  is  always  listed  first  followed  by  the  symbols  for 
I  he  group  ligands.  For  example,  DDH  represents  the  group 

f  "I 

c  c  -  c  c 

l  J 

Flie  thermochemical  group  values  for  Z1  were  computed  by  the  author.  The 
results  were  derived  by  subtracting  the  sum  of  eight  Z  groups  from  the 
corresponding  thermodynamic  property  value  for  gaseous  naphthalene  and 
dividing  the  result  by  two.  The  data  for  naphthalene  were  obtained  from 
Reference  4  (  Book  1  ) 

A.  Z  COR  R FICTIONS  FOR  RING  STRUCTURES 

I  able*  A-Z  contains  the  nongroup  ring  corrections  for  a  series  of  hydrocarbon, 
oxygen-  and  nitrogen-containing  rings.  Saturated  and  partially  unsaturated 
as  well  as  single  and  fused  ring  structures  art'  included.  These  data  are 
stored  in  the  program  per  group  function.  Consequently,  as  missing  data 
become  callable,  they  can  be  readily  incorporated  into#  the  program. 

A.  J  NEXT-NEAREST  NEIGHBOR  CORRECTIONS 

I  hf  corrections  for  next-nearest  neighbor  interactions  arc  given  in  Table  A-3 
I  ho  special  miiioenlar  assignments  for  Ili.  .jrio  and  S 1.  were  described  in 

Si<  linn  S .  5  ,  i , 
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TABLES  OF  THERMOCHEMICAL  GP.OUP  CONTRIBUTIONS 
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TABLES  OF  THERMOCHEMICAL  GROUP  CONTRIBUTIONS  (Continued) 
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Table  A-Z 

CORRECTIONS  FOR  RING  STRUCTURES 
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f,  29s 
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S° 

S298 
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c° 

p 

cal/deg-mole 

Cocf  licit*  nts 

cal /rieg^- mole  cal /deg  -mole 

cal/dog"*-  mole 

Cyclopropane 

27.  6 

32.  1 

-5. 5952 
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Table  A-2 

CORRECTIONS  FOR  RING  STRUCTURES  (Continued) 
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Table  A -2 

CORRECTIONS  FOR  RING  STRUCTURES  (Continued) 


t 

I 

! 

f 

I 


IliiiK 

A  “r ,  1‘>h 

krai  /  1 1 1  <  i )  C 

s° 

298 

cal  / <lrtf  *  mole 

c° 

p 

i  ai  nu»li' 

c'lm-U  iciotUi* 

cal »  ul  ;M.  u  * -  inoli* 

i  a  !  *  -inoli' 

o 

t>.  H 

Zi>.  7 

-7  44>.i 

1.  47-4/  X  in'  *  1  IKO  X  iti"s 

- M .  0 *i  x  to''1 

0 

1 . 0 

0 

i.  -< 

<* 

8,  0 

m 

8 


ifiMiii 


Table  A- 3 

NEXT-NEAREST  NEIGHBOR  CORRECTIONS 


InU*  r  action 

u° 

nf.  2*)8 

kcal  /mole 

S° 

2<)8 

tal/tlog-mole 

C° 

P 

cal/'deg-mole 

cal/deg*”'- 

Coefficients 

moli  cal /deg*- mole 

cal  /dr  -  it .» )l« 

Alkane  gauche 

o 

x> 

o 

A 1  k  e  n  e  gauche 

0.  50 

Esther  oxygen  gauche 

0.  3 

Di- tertiary  ether* 

8.  4 

Cia 

1  00 

0 

-2  7)98 

5  8531  X 

io"3 

-4.  785  X  10'° 

1  39  X  I0'1' 

(a) 

(a) 

Ortho  (benzene) 

0.  57 

-t.Ol 

3.  6785  X  I0‘* 

4.  4047  X 

io'3 

-0. 207  X  10'° 

2.  10  X  III'  ’ 

Ortho/para(pyridinc)  -IS 


(a)  Sn*  1  able  S-4  fui  ext options. 


-■  w  ■  .«■  -^Ty ^gg^^gs^STy?^^ 


Appendix  B 

FLOW  LIST  OF  TGAP  PROGRAM 

The  flow  list  of  the  TGAP  program  and  the  program  glossary  presented  in 
the  following  section  were  generated  by  the  McDonnell  Douglas  JOYCE 
Automated  Documentation  System.  The  flow  list  comprises  a  listing  of  the 
source  program  bounded  by  brackets  or  arrows  on  th  1  ^ ft  and  right  mar¬ 
gins.  The  brackets  on  the  left  margin  delineate  the  cycles  or  DO  loops  of 
the  program.  The  brackets  on  the  right  margin  delineate  all  transfers, 
both  conditional  and  unconditional.  The  numbers  of  the  statements  to  which 
the  transfers  are  made  are  also  depicted.  The  flow  list  of  the  main  routine, 
TGAP,  is  presented  first  followed  by  the  flowlists  of  the  54  subroutines  of 
the  program  listed  in  alphabetical  order.  The  names  of  the  routines  and  their 
inspection  locations  in  the  text  are  presented  below. 


Rout  ine 

Page 

1 

TGAP 

12 

2 

ASSIGN 

16 

3 

ASYMC 

18 

4 

BOND 

19 

5 

CHAINM 

6 

CHANGE 

22 

n 

1 

CIS 

23 

8 

CISC  OR 

25 

0 

COR  CIO 

28 

10 

G  RINGS 

34 

1  I 

C  TWO 

36 

12 

CYCORR 

38 

13 

DATA1 

45 

14 

DELETE 

50 

15 

DELTA! 

51 

16 

DELTA 2 

52 

17 

DITERE 

53 

18 

ENTSYM 

54 

19 

EQUAL 

56 

20 

EQUALR 

60 

21 

EX TROT 

65 

Routine 


22  FIND 

23  FIRSTR 

24  FUSION 

25  GADATA 

26  GAUCHE 

27  HEXGON 

28  ID  ENT 

29  INTROT 

30  LESSEN 

31  LINEAR 

32  MAXCHN 

33  MULTI 

34  NEWCOL 

35  NEWKC 

36  NRINGS 

37  NUMBER 

38  ORDER 

39  OXYATM 

40  PRINT1 

41  PRINT2 

42  RESETR 

43  RING 

44  SAME 

45  SCAN 

46  SCANBR 

47  SCANCH 

48  SEARCH 

49  SETUP 

50  SHIFT 

51  SORNGI 

52  STAND 

53  SUMATM 

54  SYMRNG 

55  SYM  TRY 


70 

71 
73 

76 

77 
80 
85 
88 
89 

92 

93 

95 

96 

97 

98 

99 

100 
101 


\ 


102 

103 


404 

105 

106 
107 

109 

110 
111 


112 

114 

115 
117 
121 
122 
127 


11 


IT  apa 


■5S5W3WI!WJ^ 


TOM 


MOCHA"  TGAP!  INPUT,  OUTPUT , TAPES  *  INPUT  .TAPS  BaOUTVVSt  t 
C  THIS  IS  THt  "AIN  OA  CONTROL  UNIT  OP  THE  THE AM0CH6 Ml  CAL  GAOUP 

C  AOO I  T I  VI  TV  PAOGAA"  (  T6AP  I,  IT  PAINTS  OUT  TH(  OATA  LIBRARY 

C  (OPTIONAL),  READS  AND  PAINTS  OUT  INPUT  DATA.  TAANSPf AS  CONTAOL 

C  TO  THAEE  "AIN  SECTIONS  OP  THE  PAOGAA",  AND  COMPUTES  AND  PAINTS 

C  THE  THE A"OCNE"ICAL  PAOPEATIES  OP  THE  MOLECULE. 

INTEGEA  ENOCSI , ENOCS2,ENOC$l, CNOAUN, CASE, BLANK ,  ALTER!  20, 2  ), 

tOAosum  iao),  search 

INTEGEA  Svn><  H  ).  SYMBOL!  *  ),SAIO(  SO,  10  » 

INTEGEA  WEIGHT!*) 

INTEGEA  Sum  1 10) 

DIMENSION  T ARRAY!  ID, CRT!  ID, ST*  ID.HST!  ID, FT!  ID.HSOT!  ID, 

IHTTI  ID. CPI  D.CRSYM!  D.KGAIOI  I 03  ),  LABEL!  SO  ) 

COHMON/BLA I /NO, NOS,  SYM* ,  SYMBOL , NOVALI  *  ), GRID 

COMMON/ BLK  2 /UE I GHT,  MUGTI  *  ),  MOLWT!  100  ),  IK  1 00,  S,  A),  NCI  IOO),RCC 
C0MH0N/BL5 3/ 1 A ING!  AO,  30  >,  I  MATS!  SO,  SO  >,NW(  100),  IBC!  ICO),  AON!  100), 
I10SR!  100), iBT  100,0  ),  IAG,NOBA 

COMMON/ SLA A/NBCI  AO,  SO  ),NBS(  A0,2),NBKA0,20>,  I  AC,  NONPUS,  IACTOT 
COnrON/BLES/NDATM.NUMATm  S  ),"BCI  SO  >, MBS!  2  ),  JW,  JV, LFL AGS, LFLAGG 
COMMON/SLA A/NUMPAO(  2A  ) 

COMMON/BLAT/SU", HP2S8I  IIO).S?*S(  IB0),CPK  ISO, A) 

EOUI  VALENCE  (CPT!  I  I,  1MATAI  *,!)),(  ST(  I  >,  I  MAT  A!  IS,  I  >),(  HSTt  I  ), 
IIMNTK  33,1  )),(PT(  I  I,  IMATK  AT,  I  )),<  MSOTC  I  ),  I  MATA!  I  1,2  >>,(HTT<  I  ), 

I  Ir'ATK  25,2  )  >,<  AGAIOI  I  ),  NOCI  I ,  T  )  I,  (  LABEL*  I  >,NBC<  I,  A*  )) 

OATA  (  SVMK  I  ),  |a|  .D/IH-,  IH»,  IH  ,IH  / 

OATA  NOATM/  5/, NOS/  */,(  5YMS0L!  I  ),  WEIGHT!  I  >,!»),*)  /  IHH,  It, 

1 1 HC ,  121.  IHO,  1SA.1HN,  S3T,  IHE,  A9B,2HC0,  ATT,  INCH,  AOI, 

22HNO,  2 1 T, 3HN02,  23*/ 

OATA  (MI.-GT!  I  1,1*1,  *1/0, 0,1*, f, 0,2T,0,0,0/ 

OATA  INUr.FAO*  I  ),  I  *  1 . 2A  1/2,  I .  J,  I  ,  I  ,  0, 2,  I  ,  A,  1 ,  1 , 0,  A,  I ,  J,  I  ,  1 ,0, 

I  A, 1 ,3,2, 1 ,0/ 

OATA  NOVAL/I ,A, 2, 3,1, 2, I, 1,1/ 

OATA  Al  TER!  1,11/11  TO/ ,  ALTER!  1 , 2  1/2**/ ,  ALTER!  2, 1  )/2*95/,  ALTER!  2,2) 

I  /21 1 1  /  ,  AL T£RI  3, 1  > T 1 1  M /,  ALTER!  ], 2  )/2AA/ ,  ALTER!  A,  1  )/IIT3/, 

2ALTERI  *,2  >/2*4/,NAL/*/ 

OATA  T Af.nAY/2AI.  0,  300.0,  AOO. 0,S90.0,  AOO.  0.  TOO.  0,  BOO.  0, *00.0, 
IIOCO.O, 1200.0, ,  on  ». 1600.0, 10000, 2000.0/ 

OATA  E’JOCSI / 1 H*/, EN0CS2/ IH«/,EN0CS3/I H*/, ENORUN/3HENO/, BLANK / )H  /, 
ISUM/IOO.O/ 

CI.O  INITIALIZE  VARIABLE. 

CASC*0 

C2.0  READ  IN  OATA. 

C  HEAO  IN  PAINTOUT  OPTIONS  (IPAINT)  AS  WELL  AS  THE 

C  OPTIONAL  VARIAOLCS  comprising  the  eiternal  symmetry  NUMBER 

C  I NOSN ),  the  NUMBER  OF  ENANTIOMERS  TNENAN),  ANO  THE  NUMBER  OP 

C  MCSO  STRUCTURES  IMESO).  A  MOLECULE  IOENT  IP  I  CAT  TON  LABEL 

C  (LABEL)  MAY  BE  INPUT  IF  DESIRED. 


TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 

TGAP 


1  READ! 5,2  IIENO, I  PA  I  NT,  NOSN, NENAN, ME  SO, LABEL 

2  POftll.lT!  A3, "13,  1 5  A,  90  A I  ) 

C  IP  ENO  CABO  PRESENT,  STOP. 

IP! I ENO. EO. ENODUN IS TOP 
N0*0 

C  REAO  IN  GRAPHIC  STRUCTURE  OP  MOLECULE. 


(GAP 

TRAP 

TOAP 

TGAP 

TGAP 

TGAP 


C3.0 

c 


3  N0*N0*1  TGAP 

READ!  5,  *  )(  GAIO!  NO, L  ),L* 1 ,00  )  TGAP 

*  FORMAT!  BOA))  TGAP 

IP!  GRID!  NO,  I  > ,  NE . ENOCS ’  . OA .  GAIO!  NO,  2  >. NE . EN0CS2  . OR .  GR 1 0!  NO,  3  I . Nf .  (GAP 
IEN0CS3  >G0  TO  >  TGAP 

ENO  OP  CASE  OATA  INPUT  CARO  REACHED.  OELETE  LAST  CARO  TGAP 

PRO"  NO  COUNTER  ANO  INCREMENT  THE  VARIABLE  CASE.  TGAP 

NO*NO-l  TGAP 

IFIKO.LE. 0  IGO  TO  |  TGAP 

CASE*CASE«I  TGAP 

PRINT  OUT  GROUP  AOOITIVITV  OATA  TABLES  ON  FIRST  PASS  PROVIOINt  TGAP 
JPAINT  IS  NON'IEAO.  TOAP 

JPAINT* IPAINT/ IB  TOAP 

JPR I  NT* IPAINT” 10* JPAINT  TGAP 

JPICASE.NE.I  IGO  TO  Afi  TGAP 

A PRINT* I  PR I NT/ 10#  TGAP 

APRINt*!  I  (*  A  |  NT- 1 00*  APR  I  NT  )/ IB  TOAP 


3 


*»»  IP!  C1Sf.rO.  I  .A.  0.  JPRINT.Nf  .0  )CALL  GAOATA 
C*.0  HEADING  PRINTOUT  OPTIONS. 

WAITEIt.il 
I  FORMAT!  INI  I 


TOAP 

TRAP 

TOAP 

TOAP 


1*1 


3 


1  0,01-1* 


12 


'  i i Yf^i*,-.- 


r^fiTT.y^  m  wpyfyw ™—'i!iiw,wp  tiiiij,iiii,(|i^^ijai>MM!iwtiKiii>wi|!W'lf.w|m 


TO. 

TO. 

Tl. 

to. 

to. 


IFIRPRINT.NC.O.ANO.RPAINT.NE.BlOe  TO  101 
PAINT  OUT  TITU. 

wmycio.iooi 

too  FORMATT IM  , 1TI.14NQA0UP  RDDIT1VITV  THCAMOCHEMICAL 
IROGAAM  //I 


PROPERTIES 


TGAP 
TQAP 
TGAF 
F  TOAF 
TGAF 


•0. 

01. 

01. 

0). 


<02 


OR. 

00. 

0*. 

01. 

00. 

04. 

40. 

41. 
41. 
41. 


I  Ft RFRINT .  NE .  0 .  AND .  RPR  I  NT .  NE . 1 >00  TO  100 
PRINT  OUT  CAtt  NUMBER. 

NR  I  Tit  0.104  ICASI 

104  PQRMATt IN  ,11»,I2WCASI  NUMBER, IB// I 


TGAF 

TGAF 

TGAF 

TGAF 


FT5T^ 


100  HAITI!  0,100  I 

101  PORMATtlH  .14X.20HMOLCCULAR  ITAUCTUAI  //I 

C1.0  CCNTIA  STRUCTURAL  DATA  FOR  PRINTOUT  FURPOSIS. 

C  FIND  LIFT!  ML  I  AND  RIGHT!  NOR  I  OOUNOARtlt  OF  ARRAV  LAOIL. 

null 

NOR*  I 

00002  L*lr10 

I  Ft  LAOILt  L  1.(0.  OLANR  >60  TO  002 
IFt  L . GC . NIL >00  TO  000 

MILsL  _____ 


TGAF 

TGAF 

TGAF 

TOAF 

TOAF 

TOAF 

TGAF 

TGAF 

TGAF 

TGAF 


102  -i 


44. 

41. 


000  IF! L.Ll.nOA >G0  TO  002 
PIOR*L 


TGAF 

TGAF 


d 


40. 

4T. 
40. 
44. 
100. 
01. 
102. 
I  OS. 
104. 
101. 
100. 
IOT. 
100. 
1 04,. 
110. 
III. 
III. 


002  CONTINUI 

C  FIND  INITIAL  LOCATION  IN  R6RI0  INTO  WHICH  COLUMN  OT 

C  FROM  ARRAY  LAOIL  IS  TO  II  TAANSFf RAID . 

C  OLANR  OUT  RGRIO  ARRAY  ANO  01  TERMINI  IF  IDCNT IFI CAT  I  ON 

C  WAS  INPUT. 

00000  LSI .101 
000  RGRIOt  L  IsOLANR 

IFt MGL.Ea.SO.ANO.HOA.CO.I )G0  TO  010 
LL*B4-IMBH-MBL«1  1/2 

C  TRANSFER  ORTA  FROM  LABEL  INTO  DESIGNATED  LOCATIONS  OF 

C  ANO  PRINT  OUT. 

00010  LsMBL.MBA 
RGRIOt  LLI*LABELt  LI 
010  LL»LL*I 

UR ITEt  0.012  )t  RGRIOt  L  ),L»l,BOI 
012  FORPIRTf  IN  . 08AI //  I 

C  PINO  LEFTtPIOLI  ANO  RIGHTIMBRI  GRID  BOUNDARIES. 


DATA 


NAME 


RGRIO 


TGAP 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TGAF 

TOAF 


OIO-Y 


111. 

114. 


010  HRLsSO 
MORsI 


TGAF 

TGAF 


r-  II*. 

000  Rsl.NO 

TGAP 

m. 

DOO  L«l, 00 

TGAP 

igBjra 

112. 

IFtGAIOIR.LI. CO. OLANR  ICO  TO  0 
IFtL.OC.MiL  >00  TO  t 

•  TGAP 

110. 

TGAP 

111. 

MBLsE 

TGAP 

120. 

2 

IFt L.LC.MBA  )GQ  TO  1 

TGAP 

121. 

MOAsL 

TGAP 

MB 

— 1  122. 

0 

CONTINUE 

TGAP 

121.  C 

FIND  INITIAL  LOCATION  IN  RGAIO 

INTO  WHICH  COLUMN  OP  DATA  FAOM  TGAP 

124. 

111. 

120. 

I2T. 

120. 

111. 

no. 

III. 
111. 
III. 
114. 
Ill, 
ISO. 
I  IT, 
ISO. 
114. 
140. 


141. 

i4i. 


14). 

144. 


AAAAV  GA | 0  IS  TO  01  TRANSFERRED  AND  OLANR  OUT  RGRIO  ARRAY. 
LS«04-t  MOA-MSl*!  1/1 
004  Ls|  101 
«  RGRIOt  LIslLANR 

C  TRANSFER  COLUMN  OF  DATA  FROM  QAIO  INTO  OBSIGNATED  LOCATIONS 

C  OF  ROAIO  ANO  FAINT  OUT. 

0012  R*l,NO 
LL«L» 

0010  LSM1L.M0R 
RGRIOt  LL  )*ORIOt  R.L  I 

10  LL»Ll*l 

UITCIO.II  (I  ROA  I0<  LI,  Ls|,  |01 1 

11  FOOHATt IN  ,101*1 > 

It  CONTINUI 

CO.O  TRPNSFEAS  CONTROL  TO  SECTION  ONI  OF  THE  FROGAAN  WHICH 
C  IDENTIFIES  THE  GROUPS  ANO  THEIR  STRUCTURAL  ANO  WEIGHT  DATA. 

HRRsO 

CALL  STANOt IEAA  I 
IFI  IfnRIIl,  I4.lt 

C  ERROR  CRISTS.  TRANSFER  TO  FAINTOUT  ROUTINE  ANO  (IIT  FROM 

C  CASE  CALCULATION. _ _  _ 


TGAF 

TGAF 

TOAF 

TGAF 

TGAF 

TOAF 

TGAF 

TOAF 

TGAF 

TOAF 

TGAF 

TOAF 

TGAF 

TOAF 

TGAF 

TGAF 

TGAF 

TGAF 

TRAP 

TRAP 

TGAF 


|4f. 


IS  CALL  FAINT  I 


IMF 


T] 


12  APR  21  0. 01-10 


1*6. 

no  to  i 

TGAP  1 

Ilf. 

C7.o  transfers  control  to  section  tuo  of  the  program  which  finds  the 

TGAP 

It#. 

c 

CHAIN  SECP.ENTS  ANO  UNIQUE  RINGS  (IF  ANY  1 . 

TGAP 

j 

t**. 

1*  CALL  CHAINHI LX, IEAA  ) 

TGAP 

190. 

c 

IF  ERROR  EXISTS  TRANSFER  TO  PRINTOUT  ROUTINE  AND  EXIT  FR0I* 

TGAP 

m. 

c 

CASE  CALCULATION. 

TGAP 

1 

192. 

HI. 

Cl 

IF<  IERRII3.l5.il 

.0  TRANSFER  CONTROL  TO  SECTION  THREE  OF  THE  PROGRAM  WHICH  FINDS 

TGAP 

TGAP 

15  — 

I1-* 

IS*. 

L 

ALL  SECOND-ORDER  ANO  RING  CORRECTIONS  AS  WELL  AS  CONTRIBUTIONS 

TGAP 

IS*. 

c 

OUE  TO  INTERNAL  AND  EXTERNAL  ROTATIONAL  SYMMETRY  ANO  OPTICAL 

TGAP 

If*. 

c 

ISOMERISM. 

TGAP 

Iff. 

15  CALL  CORCIGI  NOSN,f:£NAN,MESO,LI,HSVM,  SSYR.CPSYN) 

.0  COMPUTE  AND  PRINT  OUT  THEAMOCHEniCAL  PROPERTIES  OF  MOLECULE. 

TGAP 

* 

Iff. 

c* 

TGAP 

Iff. 

c 

TRANSFER  THEAMOCHENICAL  CONTRIBUTIONS  DERIVED  FROM  SECTION 

TGAP 

160. 

c 

THREE  TO  CORRESPONDING  VRRIRBLES  OELH,  S,  ANO  CP. 

TGAP 

161. 

OElHiHSVN 

TGAP 

1 62 . 

SaSSVft 

TGAP 

161. 

0021  J«l,* 

TGAP 

166. 

21  CPI  J  1=CPSVMI  J  1 

TGAP 

1  65 . 

c 

FI  NO  ORDER  MAX  ELEMENTS  OF  ARRAY  SUM  KOUI.IS  HAVE  IF  ARRANGED 

TGAP 

■  66. 

c 

IN  NUMERICAL  ORDER  RND  STORE  SAID  ORDER  t *ti M 1 VE  TO  INITIAL 

TGAP 

167. 

c 

OROER )  IN  OROSUM. 

TGAP 

160. 

MAX-163 

TGAP 

16*. 

CALL  ORDER!  MAX, OROSUM, SUMI 

TGAP 

1  ro. 

c 

FIf.O  LOCATION  IN  GROUP  ADDITIVITY  DATA  ARRAYS  CONTAINING  THE 

TGAP 

in. 

c 

DATA  CORRESPONDING  TO  THE  COMPUIEO  HEIGHT  MOLUTl  A  1  OF  GROUP  X 

TGAP 

m. 

LFLAGGsO 

TGAP 

173. 

006*  Xsl.XCC 

TGAP 

17*. 

ISER-SEARCHI  SUM. OROSUM,  163, MOLUTl  K  1,  IT! 

HAS  HEIGHT  PITCH  ACHIEVED 

TGAP 

175. 

c 

TGAP 

176. 

IFl  ISEH.NE.O  160  TO  25 

TGAP 

25- 

177. 

IFI  IT.GT.O.Af  3.  IT.LC.I63IG0  TO  6T 

TGAP 

67  — 

|7«. 

c 

NO.  OOES  AM  ALTERNATE  OATR  GROUP  HEIGHT  EXIST  FOR  GROUP  R 

TGAP 

Tl*. 

25  0031  L*I,NAL 

TRAP 

190. 

1  FI  MOLUTl  X  ) .  f.E .  Al  Tf  Al  1,1)  >G0  TO  31 

TO  \? 

33  — 

1.11. 

c 

YES  IT  r.  -5.  FINO  ITS  LOCATION  IN  DATA  ARRAYS.  OTHET.UISE 

TGAP 

102. 

c 

P.1 1  IT  OUf  r.ESSPGE  INOICAI  IMG  ORTA  ARE  MISSING. 

T  GAP 

ISl. 

I5ER  =  SEARCW  SUM, OROSUM,  163,  ALTER!  L,2  1,  IT  1 

Ifl  ISER163,6T,6J 

TGAP 

1  8*. 

TGAP 

63  —n 

67- 

i  j  5 . 

33  CONTINUE 

TGAP 

186. 

61  !  UTEI  6,65  IX, MOLUTl  X  1 

TGAP 

167. 

65  FO.lfIRT!  |II0,26X,  1‘IHOAfA  FOR  GROUP,  l*,18H  WITH  A  WEIGHT  OF, 16, 

I35H  ARE  HOT  IN  PROGRAM  OATA  LIBRARY,  t 

TGAP 

IBS. 

TGAP 

16*. 

LFLAGG>I 

TGAP 

1*0. 

c 

MOST  LIKELY,  R  MATCH  WAS  ACHIEVED.  NOW  4 DO  THE  TMERM0- 

TGAP 

1*1  . 

c 

CHtnlCAL  OATA  FOR  GROUP  X  TO  OFLH,  5,  ANO  CP. 

TGAP 

1*2. 

67  0ELH-0ELH«HF2»ei  ITI 

TGAP 

1*1. 

S?$*S2*9I  ITI 

MAP 

I**. 

006B  J*l,* 

TGAP 

1*5. 

6B  CPI  J  l=CPI  J  l*CPXI  IT,  J  1 

TGAP 

1*6. 

6*  CONTINUE 

TGAP 

1*7. 

c 

DETERMINE  IF  THEAMOCHFMI CAL  OATA  OUTPUT  IS  COMPLETE.  IF  NOT, 

TGAP 

1*1. 

c 

PRINT  OUT  UAnNlNG  MESSAGE. 

TGAP 

I»*. 

IFllFlACG.EO.OlGO  TO  7* 

TGAP 

75  — 

200. 

WRITE! 4, 73  1 

TGAP 

201. 

71  FOr.  '.MI/T  1  HO,  II,  I24HUARNIN0 - ALL  OF  THE  THFRMOCHEMICAl  VALUE 

TGFp 

20*. 

IS  FUR  ONE  OR  MORE  GROUPS  ARE  MISSING.  THE  T  MERMOCHE  Ml  CAL  OATR  SELO 

(GAP 

20M _ 

2u  Ane  i  .coi-„>iere.  > 

T  GAP 

20*. 

75  1  FI  LFLiV'.S  .  E<i .  0  1G0  TO  61 

'trap 

Jl- 

205. 

L'.TI  TE<  6,  77 1 

TGAP 

206. 

77  FORMAT!  /  /  1  HQ,  *1  X  ,  9  7H'.'A0NI  NO ENTROPY  .V'O  FREE  ENERGY  RATA  OEIO 

TGAP 

.'0  7. 

|U  1 1 Y  0.6  OFF  R  EC  J  PERCENT  OUl  TO  POSSICLE  /IH  ,27X,7SIT  '.TRISUTIO 
2f.*IS>  FROM  EXTFP.-'l  RO T AT  1 0'JAL  SYF.r: TRY  0  ✓..T  O  OPTICAL  IJIH.JHISI*.  3 

TGAP 

200. 

TGAP 

20*. 

c 

PRINT  OUT  f.iT  HEAT  CAPACITY  COEFFICIENTS  OF  MOLECULE.  ALSO 

TGAP 

210. 

c 

CO .  ,’UTE  f'.O  PRINT  OUT  THE  HEAT  CAPACITY.  ENTROPY,  ENTHALPY, 
RICRS  FREE  Ef.  ’  iGY,  H-MI  **1 1.  Af'O  TOTAL  ENTHALPY  FOR 

TEC.. 'TORTURES  SPECIFIED  IN  ARRAY  TRRRRY, 

TGAP 

III. 

c 

trap 

71*. 

c 

TGAP 

i'll. 

'  ' 1  ‘ 

61  HCONV-lf  (ICPI  *  )'l*l .  02*.0*CPI  1 1.0.0  !•***. 0*Cf»7//2/,  Q  )»2*6. 0* 

TGAP 

* 

21*. 

ICPI  1  11*2*6.0  l/IOOO.Q 

TOAP 

*11. 

SCO  (S*S-CPI  1  >»Al  oc.l  2*a.  01-11  CPI  *)•**•.  0/1. 0»CPI  3  )/*.  0  )•*♦».  0* 

TGAP 

116. 

ICPI  1 1 1*1*6. • 

TOAP 

A.-M  ?j  0.01*36 


14 


cfti  j  »*cp<  ( )♦<  <  cm  t  j  •♦en  i » >*?*««»«  j  hcm  *  i '  V  * * 

IT!  J  >*CM  I  IMLOO!  TMMVI  J  t  )♦(  I CH  1  )•**«»»«  J  >>/!.#! 

loTIRMVU  )*CM  )»SCONI . .  ... 

NIT!  j)i(m CM  <1  )*T MMV<  J  it* . 9*CM  I t/1.0  WMMW  J  >*CM  *  >**.*»• 

ITftRMV!  J  )*CM  I  >  >»TMMV!  J  > »/ 1»#9.0 

?T?5*»i-*HloTU  >*IOOO.O-T*M»VC  J  )»*T!  J  » >/TIM»VI  J  » 

MTTI  J  >*HS0Tt  J  >«0f LM 
It  CONTINUE 

IT  l$M*T?}//lV?M«|lONtN«*NOCNWICIl  9*0F«||TI|I  J*  t22» 

IIH  .IU.IIHNeIt  C&MCITV  COEFFICIENT!  /» H  TOM 

ttl,  ltMCiWBEO»*l“MOLI.  IE#  IINCII./OEO»»l*NOl(,M,  If  HCIL/OE9»*l-HOt(/  TOOF 
UN 

II  PO«nATf>/IM  .mtIMT1»l*|9MCI9».l551IH*.n;,*gJHT»-WO».l«, 

IIIH-I  01  T  >-H<  it*  t\/T,  it.  I  !hN(  T  )•&<**»  KtLtlfiOflHM  *99  »♦«<  T  )-W  It* )  TOO* 
t/IH  .  1 1 1.fHOEO  E.IE. t*NC0l/0E9”M0Lt,II# l*NCM./OEO“NOt(»IE, 

WHITE!  I, It  »i  TMlSv!  J  >,CFTI  J  i.STI  J  >,H|T!  J  »,FTI  J  I.hSOT!  J  >,HTT<  J  >, 

IJsl.lt) 

It  FCKMTIIM  ,  l*,FI.I,*FI*.*,F*9.i> 

00  TO  i 
(MO 


ir  dm  n  0.91-n 


f  3  .  1 

A0»-l 

ASS  t  GN 

1  A . 

L0*0 

ASS  I GN 

1  f  . 

J  1  "I 

ASS  1  GN 

I  *  . 

jf*k-i 

ASS ! GN 

1  7  . 

RCTuRN 

OS  SI  GN 

II,  Cl  0 

SIT  VMimirS  F  or  otoc  CT* ON  northcost. 

ASS  I  GN 

M  1 

R0»-  1 

OSS  1  GN 

20  . 

L0«1 

ASS  1  GN 

2  1.  C 

WHICH  BOUNDARY  mow  00  COLUMN)  WILL  1C  RIACHfO  FIRST 

ASS  1  GN 

22  . 

1  F  (  A  -  1  .  L(  )0*  L  )  60  TO  r 

ASS  I  GN 

2  2  C 

COLUMN  BOUNDARY  MILL  Of  RIACHID  MOST.  SCT 

J!  AND  Jf 

ASS  1  GN 

2  A  C 

ACCOM  01 N  6  L  V . 

ASS  t  GN 

2  9.  S 

JIM 

ASS  1  GN 

JF«BO-L 

ASS  I  GN 

2  7 

0(T  URN 

ASS  1  GN 

21.  C 

ROW  BOUNDARY  Will  BC  NfACHfO  FIRST.  SCT  it 

AND  JF 

ASS  1  GN 

2  9  C 

ACCOR  01  N6LV . 

__  ASS  1  GN 

3  0  7 

J!  ■* 

ASS  1  GN 

3  1 

jf«i-i 

ASS  I  GN 

12 

AIT  URN 

ASS  1  GN 

33  Cl . 0 

SCt  VAAIABLfS  FOR  OIRKCTION  (AST. 

ASS  1  GN 

3  N . 

9  *0»0 

ASS  1 

1  GN 

3* 

ID*I 

oss  i 

!  GN 

30. 

J 1 • L+t 

ASS  ! 

I  GN 

3  7 

JF  •§• 

ASS  1 

GN 

31 

Oft  URN 

ASS  1 

GN 

3  9  C 

9.o  sit  vaoiabics  for  oioccriON  southcast. 

ASS  1 

i  GN 

MO 

1  1  *D”I 

ASS 

1  GN 

H\ 

L  0  *  1 

ASS 

1  C«N 

m2 

c 

WHICH  BO  ‘JNO  AR  V 

(  ROW 

OR 

CO  L  UMN  1 

WILL 

1 1  R  t ACHtO  FIRST 

ASS 

[  GN 

Mi 

m  NO-* .  GT  . 0  0- L  1  GO 

TO  5 

ASS 

I  GN 

M  M  . 

c 

NOW  BO  UNO  AO  V 

U!  LL 

•  c 

0  C  ACHCO 

FIRST 

.  SIT  Jl  ANO  JF 

ASS 

GN 

Ml 

c 

ACCOM  01 NGLV . 

ASS 

1  GN 

11  J  1  ■* 

ASS  1 

1  GN 

JF  »N0-« 

ASS  1 

!  GN 

ACT  URN 

ASS  1 

[  GN 

C  9  0  SIT  VARIABLIS  FOR  OlRfCtlON  SOUTH. 

ASS  1 

1  GN 

1  7 

A  #•  1 

ASS 

GN 

10"-I 

ASS 

GN 

C 

WHICH  »0  UNO  AN  V 

(ROW 

OR  CO l UMN  >  WILL 

If  At ACHfO  F 1  AST 

ASS 

GN 

1 F(  NO  -  I.  11 ,  L» 1  1  GO  TO 

1  1 

ASS 

GN 

C 

COLUMN  BOUNOA 

AY  W 

RST .  SIT  J|  ANO  JF 

ASS 

GN 

c 

ACCOROI NGLV . 

ASS 

GN 

1  ♦ 

Jl  *2 

ASS 

GN 

J  F  •  t  *  1 

ASS 

GN 

c  t 

0 

BIT  URN 

01  A  1 

CT ION  WIST . 

ASS 

ASS 

GN 

GN 

Cm#i #h 


SUBROUTINE  C  H  A  f  N  R<  L  *  ,  I  E  A  •  )  CHAIN* 

THIS  SUBROUTINE  IS  THC  CONTAOL  E  L  E  Rl  NT  F  Oft  SECTION  TWO  OF  ThI  CHAIN* 

MocMft.  this  section  identifies  the  chain  foaratiows  mesemt  chain* 
in  the  rolccule  as  well  as  the  nurbia  of  unique  rings  and  Tnr  chain* 

AIMS  CORFONENTI.  CHAIN* 

integer  weight**)  chain* 

0  I  RE  N$  ION  AA(  A  )  ,  J  UN  CT  |  I,  100  ) ,  NO  QA  0<  IOQ  )  CHAIN* 

CO  RRO  N/AlAZ/WCI  GMT  ,  Ru  G T  (  9  ) ,  RO  l  W  T  I  100  )  ,  I  I  (  10  0,  9 ,  4  )  ,  N  C  <  100  )  ,  A  C  C  CHAIN* 

CO  RRO  N/ILO/IAI  NCI  aO  ,  J  0  >,  I  RAT  VI  90,10  >,  NW<  I  0  0  ) ,  I  1  C  (  100  > ,  A  0  N  (  100  I ,  CHAIN* 

I  (  0  BA  <  JOO  ),ii(  100,1  ),IA8,  NO  QA  CHAIN* 

CORRON/lLAft/NtCl  ♦  0  ,  90  > ,  N  I  S  (  *0,2  ) ,  NAII  AO,  20  ) ,  |  A  C ,  NO  NF  US  ,  I  A  C  T  0  T  CHAIN* 

EQUIVALENCE  IJUNCTI  »,!),!  RAT  I  <  3  ,  I)  > ,  (  NO  •  A  0 1  1  > ,  I  R  AT  I  (  J  ,  1  I  M  CHAIN* 

OATA  AA/«H  I  A  ,  AMI  N  6(  ,  1  H  ,  NHNQCI  t  CHAIN* 

initiamze  vaaiaqles.  chain* 

L.HM  CHAIN* 

L  I*  t  CHAIN* 

n»f«Q  Chain* 

«oif*c  Chain* 

00 1  L«l,*cr  CHAIN* 

>  I  B  C<  L  1*0  CHAIN* 

search  for  tcrri  nal  gaoui*.  chain* 

003  L*I,«CC  CHAIN* 

I  F(  NCI  L  ).  EO  .  I  )G0  TO  f  CHAIN*  9 

I  CONTINUE  CHAIN* 

NO  TERRlNAL  GA  0  Oft  IS  FRESENT.  CHAIN* 

*C*I  Chain* 

*0 1 F  *  R  C  CHAIN* 

go  to  r  chain*  r 

TfMI  NAL  GAOUF  IS  FA  (S  E  NT  .  CHAIN* 


5  1  , 

f  l  *  a  l  *•  1 

t HA | NR 

B*  C 

SIT  LR  IF  NURQIA  9  F  CHAINS  IICflDS  0 1  R| NS  1  0 N  <901 

C  H  A |  NR 

1  F  .  C 

NBC,  PAINT  OUT  Rl  S  5  Afif  ANQ  IlH, 

C  H  A |  NR 

9  • 

IK  IP  iMO  TO  1 1 

C  R  A |  NR 

!♦ 

NtC(  LI,  Lft)>!  me,  l,A  1 

CM  A ’  NR 

AO  C 

IS  RING  STAUCTUAE  p  ■  i  s  I  n  t  in 

RO it CULI 

CRAI NA 

A  t  . 

1  F i  |*G  TOO  .60  TO  IQ 

C  R  A |  NR 

Af  C 

vrs,  OCTfiFifNC  IF  A  |  N  Q  J  T  *  U  C  T  u*  |  IS 

CO  NT  A  1  Nl  0  IN 

Crain. 

CM  At  NA 

A  ) 

LA  •  LR-  1 

CRAI NA 

A  A 

00  1  T  Ala) ,  LA 

CH*| NA 

A* 

IFINQCI  t  ■,  A  A  I.NC  NICi  LI,  LAI  <60  TO 

1  F 

CHA| NR 

■INC  STRUCT  UA|  CONT  m|  NIB 

IN  CHAIN 

STORE  A  1 NB 

CHA| NR 

A  F  C 

CORFONENTI  , 

CRAI NR 

AQ 

CALL  A  I  N&(  l  I  ,  IR,  AA,  1  IAA  ) 

CRA| NR 

A  *  . 

IMI  ERA  (8  ,  0  )  GO  TO  1  A 

CRAI NR 

N  U  RQ  f  A  OF  AINC  COrF0N(NT| 

I  1  LI  1  OS 

0 I  Rl NS  1 0 N  OF 

AA  •  IT 

( R A| NR 

FI  C 

1  ■  1  NS.  FAINT  Ouf  RlSSAGI 

ANO  CUT. 

CRAI NR 

FI 

HALT  »L*‘ 1 1 

(RAI NR 

II 

wA  I  f  f  I  A,  3#  >AA<  |  |#  All  9  »,  1  A  C,  NALT 

CRAI *R 

1*  F<i 

FI  Bit- 

If 

> 

9 

C3  .  0 

C 

*C-L 

IF  BRANCH  ATORS  AAE  *ACS|NT,  SIT 
NOBAO  AND  JUNCT. 

•RANCH 

CORF  UT  AT  ION  V  AA  1  ABLES 

CHAIN* 
CH At  N* 
CHAIN* 

F 

IF<  NOBA.EO.  0  IGO  TO  II 

CHAIN* 

00  1*  L  ”  l  ,  NO  A A 

CHAIN* 

3 

A  A  *  1  0  BA  <  l  ) 

CHAIN* 

3 

NO  t  A  0<  «A  )•  I 

chii>  nn 

1 

JF"NC<  AA  | 

CHAIN* 

3 

DO  It  J ■ 1  *  J  f 

CHAI N* 

3 

J  UNCT  <  J ,  AA  ) ■ 1  I<  «■,  J*l.  *  > 

CHAl N* 

a 

1  0 

NT  |  NUl 

CM  Al  NR 

a 

Ca  0 

STOAf  FIRST  A  T  ft  R  0  F  FIRST  CHAIN 

IN  NBC . 

IS  IT  A  BA  ANCN  ATOR 

CHAIN* 

N 

\  2 

HlC<  l«,  <"l*l  KIC,  1,1  I 

CHAI NR 

a 

1  f  C  NCI  *  C  I  .  LE  .  2  >  GO  TO  II 

CHAI NR 

« 

C 

AC  IS  A  BRANCH  ATOR. 

F  1  NO  NEW 

AC. 

CHAI NR 

a 

CHAI NR 

a 

N»l(  LI,  N  OF  )  •  l  * 

CHAI  N  (* 

a 

NO  HD(  «  C  )  *0 

CH* 1  NR 

* 

1 F  LAft)  v ) 

CHAI NR 

a 

Call  ne  wa  Cl  a  cf  v,  a  c,  1  f  l a 61 

1  F  L  A  Gl  ) 

CH At  NR 

9 

GO  TO  If 

CHAI NR 

9 

c 

AC  >S  NOT  «  BAANCH  A 

Or  find 

NEW  AC. 

C  H  •* «  NR 

9 

1  3 

A  CF  MIC 

CHAI NR 

9 

i  c»:  Jiir,),  n 

CHAI NR 

9 

C  9  0 

START  OF  CHAIN  EVALUATION  CvClf. 

Ch AI NR 

MTUMj 
it  main- 1 


tHAf MW 


7M . 


T f 
ft 
7  7 
71 

ft 


IF  KK«-l,  CHAIM  IS  t  OUFLJCATt.  D1SCABD  CHAIN  LI. 
I F( II . AC - l  >10  TO  It 
LIL«Ll-t 
00  TO  fit 


CHtI MM 
CH  M  NH 
CNII NH 
CHtI NH 
CHtI  NR 


•  0  . 

I  7 

CO  NT  I  M UK 

C H  A  I  NR 

•  1 . 

1  • 

IFC  NC<  m-t  >lt,tl,»T 

CHAI NH 

it . 

c 

ICC  IS  TCtHlNtL  ATOM. 

CM  At  NH 

gsa 

1  t 

LI L*  LI 

CHtI NH 

tn 

c 

SIT  MIS  »««»». 

CHAI NH 

•  s . 

to 

NISI  LI.  1  )>LN 

CHAI NH 

•  t . 

MBS < LI, I ) ■ NOF 

CHAI NH 

•  7  . 

c 

tr  unusco  iiinch  lions  uniiN.  sit  up  nih  chain,  othiiwisi. 

CHAI  NH 

•  0. 

c 

60  TO  IS. 

CHAI NH 

tt . 

IF<  MBA  .  LI.  0  1  60  TO  2* 

CHAI NH 

to . 

CALL  NCUCOLC  LI,  L  1 1 ,  N  BF  ,  1  i  ,  I  C  ,  K  CP  V ,  L  H,  1  Itt  ) 

CHAI NH 

t 1  . 

IF<  I  1 1 1  .  (6.0  160  TO  It 

C  H  M 1  NH 

gCB 

2 1 

UtfTCC  4,30  >  A  A  (  )  1,  A  AC  Ml,  LI,  LR 

CHAI NH 

KOI 

so 

FO  H  RAT  1  / /  | HO, ) MI, I tHABB AV  DIMENSION  (ICCIOIP  -,2AM,I2,1M, 

,  1  2  , 

CHAI NH 

Kta 

ION  1  .  CAS  1  Tf  A  HI  MAT  (0.  > 

CHAI NH 

Rtfl 

ACT  UAH 

CHAI NH 

sn 

22 

IF!  NBA .  6T . 0  16P  TO  11 

CHAI NH 

BSa 

c 

IF  HOME  THAN  ONI  A1N6  IS  A  A  ( S  (  NT  ,  OCL(T(  N0M~UNI9U( 

CHAI NH 

! 

c 

A  f  N6S  FAO  A.  SIT. 

CHAI NH 

ft  . 

2  3 

I  AC  IAC.  CT  .  1  1CALL  LISSZNI  I3CI  1 

CHAI NH 

100. 

c 

IF  AIN6S  AAC  FAfSCNT,  AOSSIBLV  KCOIFINE  CHAIN  SfT. 

CHAI NH 

10  1. 

IFC  IAC.  6T.0  ) C*l  L  ACS (T AC  HOI F,  LI  1 

CHAI  NH 

lot. 

e 

CHICK  ALL  CHAINS  FOA  AOSSIBLC  FINAL  A  I 0 C F I N I T 1 0 N . 

CHAI  NH 

101. 

CALL  CHAN6CC  LI  I 

CHAI NH 

ION. 

ACT  UAH 

CHAI  NH 

1  Of  . 

c 

«C  IS  A  CHAIN  ATOR.  STOAr  KC  DATA  IN  VAAfABLES.  FIND 

NCU  KC, 

CHAI NH 

lot. 

c 

ANO  CO  NT  !  NUf  SCAACH. 

CHAI NH 

i  or . 

if 

IFC  KCFV.fO.  1  I  (  A  C ,  2  ,  t  1)60  TQ  |t 

CHAI  NH 

too. 

ICM.IC 

CHAI NH 

lot. 

«c«i  ii  «  e,  t ,  *  i 

CHAI NH 

lit. 

10  TO  II  « 

CHAI  NR 

ill. 

1 1 

KCP  7««C 

CHAI NH 

lit. 

KC«I  IC  K  C,  3,  t  ) 

CHAf  NH 

ns. 

60  TO  If 

CH Al NH 

itt. 

c 

«C  IS  II  MUNCH  ITU.  'TOU  «C  OUT*  IN  IIIIIIUI,  H  »0 

NS  N  «C, 

CHAI  NH 

in. 

c 

ANO  CONTINUE  tCAACH. 

CHAI  NH 

tit. 

1  7 

NBA • NBF •  1 

CHAI  NH 

117. 

NBBC  LI, NBA  >»LH 

CHAI  NH 

Itt. 

CALL  NEMK  CC  K  tA  V,  KC,  0,  I  FLA  62  1 

CHAI  NH 

lit. 

60  TO  If 

CHAI NH 

l«t. 

END 

CHAI  NH 

#.  >1  I  01  BfK  «i#«V,  DM 

I.  lhll(ll,IV,<)).8T.MlDI*ll| 

S.  10*101 

I.  *«l 

«M1 

9,  «V«t 

4.  K|«lC 

r.  i t  *  9i*t 

•  Halt 

9.  _  SO  TO  * 


t 


t 


l  . 

I  . 
I  . 
N, 
9  . 
h  . 
T  . 
0  . 
t  . 

i  0  . 

I  1  . 
I  I  . 
I  1  . 

1  *» . 

2  *  . 
I  *  . 

1  T  . 
1  $  . 
1  •  . 
II. 
II  . 
IS  . 
tl  . 
«  A. 
tf  . 
14. 

2  7  . 
If  . 

10  . 
»  I  . 
It  . 
II  . 
H 
1* 


I*. 
IT  . 
>•  . 
3  * 

•II  . 
•II  . 


e 

c 

c 


Cl  .  0 

c 

c 

C2  0 


Cl  •  0 


c 

c 


c 

c 


fuMUuTinc  ci  s  com  m  .  «t ,  1 1 , 1 1 ,  i  et ,  i  os  ci  i ,  i  ci  t .  ci  s  h,  ci  it  »  c; 

THIS  SuMOuTIMC  OlMMUd  UNITmI*  THE  k.1  or  ATOMS  Al  AND  Cl 

At  CINttl?  A  CIS  I  NT  to  ACT  ION.  IP  S  0  ,  IT  lST*lll$Hlt  T  Ht  NUMlfA,  Cl 
TYPE,  AMO  MA  6N* f  UOt  or  THIS  COM  A  I CT I  0  N  <  Cl 

I  NT  (  If  A  HCtlMTtft  Cl 

01  Mt*S  I  0*  ■  C  SAuS  (  1 ,  l  It  ),  *7  fiAUl  (  1  10  J,  *T  ftAUS  l  I  10  ),  OAT  tIS  <  I ,  I  B  0  >,  c: 

IAS«A)#  MAT  I  A  I  Cl 

COMMO  Ht  %L*t  /ME  I  OAT  ,  MUtTO  I,  MO  Ltftl  I  0  0  >,  I  *  <  I  00,  9 ,  I  ),  ACM  0  0  >,  A  CC  Cl 

COMMON/  ALBl/IAt  MCI  AO,  10  ) ,  I  MAT  I  <  SO,  10  ),  N  M(  |  00  > ,  I  t  C  (  I  00  ) ,  AON!  100  ) ,  Cl 

1  I 0|A(  I  00 >, I  It  I  00, I  1,  I  A  0,  WO  IP  Cl 

SO  Ui  VALENCE.  I  ACOAUSC  \  ,  I  > ,  I  M  AT  I  (  |  .  7  t  >  ) ,  t  A  P  C  A  US  I  I  I »  I  MAT  1(1,1))),  Cl 

U  AT  OAUS  I  I  »,  I  MAT  HI,40n,^»TCiHl,l  ),l  MAT  |(  l  ,  4  4  >  > ,  <  MS  (  I  >  ,  Cl 

I  I  II  t  ,  I  1  ),  (  MAT  I  |  I,  I  •(  A,  1  >  >  Cl 

iOlNTirv  T  ME  CIS  COMPONINTS  OP  ATOMS  A)  LNQ  At.  Cl 

CALI  CISC  A) , At ,  I  I , 1 1 , IfltT  >  Cl 

IP  A I  AHA  It  AAZ  |0  T  M  CAAIOM  ATOMS  NIYN  A  COMNXCTlVlTV  OP  Cl 

T**tt  Off  MO  A I  CONTINUE.  DTHIAMISX  HIT  PA0M  AOVTlMK.  Cl 

I  r<  1 1  AIT  .  Of.  0  )A(T  UAH  Cl 

INir/ALUl  0  AA  t  A  |  Lit  •  Cl 

ACK«0  Cl 

iTetiftio  ci 

A • U*0  Cl 

AT  AL°0  Cl 

AT  It •§  Cl 

ACIS-0  Cl 

MX4C«9  Cl 

ClfCUTt  LOOP  THAT  TfSTS  CIS  COMPONINTS.  Cl 

00  A •  l-l ,*  Cl 

I  P  t  TlS  <  L  )  . NX .  I  .OA.  MSI  ft  > .  NE  .  1  >60  TO  >  Cf 

•  OTH  CIS  ATOMS  A  A  (  HVDAOOfN  ATOMS.  TmIAI  IS  NO  CIS  CONHICTlON  Ct 

IN  IMIS  CASA.  I  N  CP  l  MC  NT  HVOAOGtN  COUNTCA  AND  TAANSPCA.  Cl 

AIM*ALM*I  Cl 

10  TO  A*  Cl 

AAf  IOTA  CIS  ATOMS  CAAIOM  ATOMS  CACM  U)  T  H  A  CONNECTIVITY  Cl 

QACATC*  THAN  TuO  .  Cl 


1  L  I  *  MAT  (  L  )  Cl 

it  *  mat  f  L+ 1  I  Cl 

in  MSI  L  > .  NX  .  t  ISO  TO  I  Cl 

I  r<  BONI  U  )- 2  Ml,  At,  T _  Cl 


S  ir<  MS<  L  >. NX. *  ISO  TO  At  Cl 

I  r  I  AONC  Cl  I  )A9,  fl,  T  _ Cl 


N|  . 

*»1  • 


A  A  . 

NS  . 

AA  .  C 
AT  t 
AO  .  C 


AO  . 

>• .  e 
*  I  .  c 
»«. 

9  9. 

9  a  . 

99. 

90. 

9  T. 

99.  C 
90  . 

AO. 

01  .  c 
01  ( 


01  . 

00. 

09.  C 
40.  C 


or. 

ol . 

00.  C 

to.  c 
n  c 
H  X 


?  i  r < MSI  L*t  )  - nc . t  t  so  to  o  cl 

!  Ft  AQJjU  It  >-1  >49,  A|,  1  Q  _ U 


0  IF<  MS'  ft  >.  NX.  4  >00  TO  A9  Cl 

I f I  AON*  U  l-l  >09. A|, to  Cl 

MS  They  A*(.  AAf  IOTH  CIS  ATOMS  AIMS  ATOMS  A  NO  f  AA  f  OP  TN|  Cl 
SAMI  AIMS  System  IP  SO,  TMIAI  is  NO  CIS  INTAAACTION  ci 

_  OITNIEN  this  PAIA.  TAANSPCA  TO  At.  _  _  Cl 


10  IPl  1  iCl  LI  )  •  I  0  C  (  L  2  >  .  N  E  ,  0  .  A  N  0  •  I  ICC  11  >  .  f  0  .  I  0  C I  Lt  >  >50  TO  Af  Cl 

CIS  INTCAOCTION  (HITS.  SIT  VAAIAlLIl  AND  I  N  C  A  I  Mf  NT  CIS  Cl 

COUnTIA  ACIS.  Cl 

atolwao  Cl 

aci.«o  ci 

AtONO  C) 

lt)M  Cl 

A€ft**Clt  +  l  Cl 

IPl  AON<  II  ).  NX.  0  >00  TO  19  Cl 

1190  NO  ON  ATOM  A  |  HAS  A  CONNECTIVITY  OP  F  0  U«  .  Cl 

AS  *MCi  L  I  »♦  I  Cl 

SO  T0(a9, 11,19,19,  111,  At  Cl 

LI  SANO  HAS  NO  COAX  LI  CANOS  C«C(PT  Al  I  N  C  A  f  Mf  A  J  CO  llNT  ( A  Cl 

_  ANQ  TAanSMA.  _ _ _ Cl 


II  «OU>«OU«I  Cl 

SO  TO  19  Cl 

IIOANO  NAS  TnAfl  COM  UOANOf  IN  ADDITION  TO  Al.  PAOCESl  Cl 
_ Y  AA  I  iljff  . _ Cl 


is  AToi>«rii4i  ci 

•  T  AL l* I  Cl 

i  1  SANO  HAS  ONI  OA  Tull  CO*  f  USANOS  |N  iOOITION  TO  SI  IP  Cl 
AT  HAST  ONI  IS  A  C  A*  00  N  ITO*.  INCREMENT  «Ci  COUN>(A.  (P  Cl 

i  Af  f  ( A  LISANO  MAS  ONLY  ONI  COAg  ATOM  AND  A  AA  I  NT  Ilf*©  NA|  Cl 
ONLY  TuO,  INCREMENT  «C1  COUNf|A.  Cl 


if  pko  rs  o'oi-io 


26 


It  HU  •■1,11 

rtUlCMl 

■  «*•!  «<  ll#M« 

irivCdCn  tt  l.M.Kill  I  M  IIII  ft  It 
«()MCUI 


<1  CtoffUt 


ituii  o »  aia»  m  **s  •  co**«cfi»if*  tr  mh. 

ll'Kt  ll  »- 1 

IIIMI  MS  I?  COM  lltMBf  UCIM  l>.  COUtWB 


1*1  CISCO* 

«  CIS  Ct* 

U  ftMO  Ml  T»i(I  (DM  lIUHl  I*  tloMlll  ft  It.  MOCISS  CISCO* 

«*k|*»Uf.  CISCO* 


II  «?B**tTB*«l  CISCO* 

lit  If Bii. ft. t  Ilf  If  ■■••VCf***l  CISCO* 

it  (Ml  ms  OM  61  f«0  coil  itSlMBS  I*  iBOfftl*  ft  It.  If  CISCO* 
•  f  Miff  OK  IS  •  C  **  10  *  Kfln,  I  HCM  *t  *f  Id  C0u«V|*.  It  CISCO* 
i*f«I*  SUMS  MIS  0  *  l  V  OM  COM  if  0  *  Ml  Ml(«f  u  (MO  N«S  CISCO* 
OfcLV  f  mO  .  laCMMir  «Ct  CO  u*ff*  .  CISCO* 


1«JX  v ~T- Tmpr :  f  * mP UHW VVv 


*1  itrcm  i, ict  »tt.t 

••  ft  vi 

HV  fttflatv  (l 

_  inriMtrtfii 


•  if  tilt  1,1  II  Ml  .0 

m  vt  n 

tM.  in  cu 


if  Mtcttl  u I  it  >Q.i 


•  •T  CtVll, til 
M  ft  »f 

_ irtucfyai  miii« 


tif  Civil,  1*1  Ml  .1 

Iff .  •  nu  ly*  TtfiL  tf  CIV  CthBICfltftt  Ml  fH|  MIT  ff  9 

m  cii««eis»*t arcm  i,  in  i 
ciffs«ciffff*itf  cm i, i it  i 

Mini 

Buff 


|f  t|»  FI  1. t»-lff 


CORCIB 


SUBROUTINE  CCRC  IGI  NOSN,  NENRN.PIE  SO ,  L* ,  HSYI6,  SSYI6,  CPSYIS  >  CORCIB 

THIS  SUBROUTINE  IS  THE  CONTROL  ELEMENT  FOR  SECTION  THREE  OF  THC  CCRCIB 
PROC.RAIS.  THIS  SECTION  SEARCHES  FOR  ANO  ACCOUNTS  FOR  ALL  SECOND-  CORCIB 
ORDER  INTERACTIONS  AND  RINB  CORRECTIONS  AS  WELL  AS  CON'RIBU-  CORCIB 
VIONS  OUE  TO  INTERNAL  AND  E ITERNAL  ROTATIONAL  SYTnETRY  ANO  CORCIB 

OPTICAL  I  SOHER I  SIR.  CORCIB 


CORCIB 
CORCIB 
CORCIB 

INTEGER  SY  ITS  6  I.SYflBOHI  J.GRIOI  50,80)  CORCIB 

INTEGER  WEIGHT! 9  I  CORCIB 

INTEGER  RI.'iGLI!  NO  I  CORCIB 

0  ITEMS  ION  CP  SYR!  A  I.NOKOMBC  It  I.KCGAUSC  3,  ISO  l,RFGRUSI  ISO  I,  CORCIB 

IKTGAtlSI  150  ),OATCIS(  2,  ISO  I.PIOELI  SO  >,  I  PH  ISO  I.CPRLT!  6  KNRINGI  SO  ),  CORCIB 

2KRCI  OR!  100  >,KRCNUT(  100  I.NONARO!  SO  l.r.NI  »<  2, 200  I.PIARO!  100  )  CORCIB 

DIMENSION  TYPE!  S,  6  >,  CPC  I  S«  S  I.OOBTHOI  6  >, RINGOI  0,50)  CORCIB 

DIMENSION  All  0  >,R2<  0  ),R3<  A  ),  AS!  4  ),  RSI  0  »,  AM  0  I,  A  71  A  >,  A8I  6  >,A9(  0  I,  CORCIB 

I  RIO!  0  >,  All!  0  ),  RI2I  A  >,  AI3I  0  >,R|S(  I  ),  At  SI  6  ),  A 16!  6  >,AI  T(  0  ),RI8!  0  I,  CORCIB 

2010(1.  >,  A20I  0  I.A2II  0  I,  A22I  t  >,A23(  0  t,A2S(  6  ),  A25<  0  >,A2AI  A  1,  A2M  0  I,  CORCIB 

3A2C(A),A29<  A),A30I  A1  CORCIB 

DIMENSION  A3 II  6  I,  A32I  0  >,  A33!  0  >,  A3S(  0  I.A3SI  0  >,A36I  A  I,  R37I  A  >,  A38I  A  ),  CORCIB 
IR30I  A  I,  A'lOl  0  >,  AS1 1  0  ),  RS2I  A  >,  A6  3I  A  >,A6A(  A  >  CORCIB 

(lir.ENSION  AS5(A),AS6(A),A67(A>,AS9(A),  ASS!  A  >,  ASOI  A  I  CORCIB 

COT." ON/ DLK1 /NO, NOS,  SY71K,  SYMBOL,  NOVRLI  9  *,  GRID  CORCIB 

C0r.:0N/CLK2/WEIGHT,r,UGT(  9  !,HOLUT<  1 00  >,  I  *(  V 00  ,  S ,  6  I.NCI  100  >,KCC  CORCIB 

COT.  0M/0LK3/IHINGI  SO.  30  I.  IPIATII  SO,  BO  I.NWI  lO0),iaC(  100  ),KON(  100  >,  CORCIB 

IIGCGI  100), IB!  100,0  >,  IRG.NOBR  CORCIO 

COr.MOM/DLKS/LIC!  60,50  ),NBS!  AO,  2  ),NB»(  60, 20  ),  I RC ,  NO.'JFUS,  I  RCTOT  CORCIO 

CO:  . '.0II/0LK5/N0ATIS,  NUMATMI  5  ),PtI)C(  SO  I.ITOSI  2  ),  JIJ,  3  Y  ,  l  FL  AGS ,  LFL  AGS  CORCIB 

EOU I  VALENCE  <  Hlf.'GOI  1 , 1  ),  A I  >,  I  RINGOI  1 ,2  >,  A2  ),!  RINGOI  1 ,  3  ),  A3  >,  CORCIB 

II  RIN'.OI  I  ,S  I,  AS  ),!  RIN3DI  1,5  I,  A5  ),(  RINGOI  1,6  ),  A6  >,l  RINGOI  I,  T>,  ATI,  CORCIO 

21  RINGOI  I  ,8  ),  AS  1,1  RINGOI  1 ,9  ),  AS  >,t  AINGDI  1 ,  1 0  > ,  A I  0  >,(  RINGOI  1,11  ),  CORCIG 

3AI  I  I,  (  RINGOI  1 ,  12  ),AI2  ),(  RINGOI  I  ,  t  3  > ,  A I  3  > ,  I  RINGOI  I,  IS  ),  AIS  I,  CORCIG 

SI  R|r:  iCI  I  ,  IS  >,  AIS  ),  I  RINGOI  I,  I  At,  AI6  >,t  AH  .TO!  I ,  I  2  >,A|  T  ),  CORCIO 

S<  RINGOI  I  ,  IS  »,  A!  8  1,1  RINGOI  1 ,  1  9  >,  AIS  >,(  R I  f.T.OI  1 ,20  I.A20  ),  CORCIO 

A(  nil.  GO!  I  ,21  >,  A2I  ),  I  RINGOI  1,22  I,  A22  I,  (RINGOI  1 ,2?  >,A23  >,  CORCIG 

T(  RINGOI  I,  2S),A2S),(  RINGOI  1,25  ),A25  ),  I  RINGOI  I,  26),  A2A),  CORCIB 

81  R  IN-31  l,2M,A2T  ),  I  RINGOI  1,28),  A2S  ),(  RINGOI  1,29  >,R29»,  CORCIB 

Sinr  01  1,30),  A30  )  CORCIB 

EGDI’.  I  EI.CE  I IIICCOI  1 ,31  ),  A3 1  ),(  RINGOI  I  ,  3?  ),  A32  ),(  RlfiCOI  1,33),  A33  ),  CORCIG 

I  I  n  (  1  Ml  I  1u  I  All)  I  IDIIA.ni  I  IRA  ATI  L  i  U  I  i  ni  I  111  AU  I  mu'  IP 


CORCIB 

CORCIB 

CORCIG 

CORCIB 

CORCIB 

CORCIB 

CORCIO 

CORCIG 

CORCIG 

CORCIO 

CORCIG 

CORCIG 

CORCIO 

CORCIO 

CORCIG 

CORCIB 

CORCIG 

CORCIG 


II  nr:  ‘.Ol  I,3S  I,  A3S  l,(  RINGOI  1 ,3S  ),AJS  >,t  RINGOI  \ ,  36  ),  A3  A  ), 

21  IT  I  -  01  l,37),A37  I, {RINGOI  I, 38), A38), (RINGOI  l,39),A39>, 

31  n  1 :  0<  l  ,M0  I,  A«iO  >,l  RINGOI  •  ,S|  ),  ASt  ),l  RINGOI  I  ,S2  I,  AS2  ), 

SI  R  II.  GDI  I.S3  I.AS3  ).  I  RINGOI  1,HH  ),  ASS  ),l  RINGOI  1,65  ),  AH5  ), 

SI  R  If.  SOI  1 ,96  I,  ASA  1,1  RINGOI  I  ,ST  ),  AST  I,  C  RINGOI  1 , 9  8  ,  AS*  ), 

ti  Ri;  .01  I  ,  MS  ),  AH9  >,  I  RINGOI  1,50  I,  A50  ) 

ECU  I  VALENCE  I  UittiZ ,  101  10,  I  > ),(  NOSI*,  IS!  11,1  )),ITO,IB(  IT, I  >>, 

II  I  Tf  LI  I  ),  181  I  3,  I  )  1,1  AINGLII  I  I,  101  95,  I  )  ),(N0K0M(  I  I,  IBl  80,8  ) ), 

21  KCGAUSI  1,1  I,  Ir.AI  II  I ,  T2  )  ),(  KFGAUSI  I  ),  II1ATTI  1 , 6  3  )  ),  I  K  T G.3USI  I  ), 

3  I  r  .3  T 1 1  1 ,60  ) ),(  OATCISl  1,1  »,  IPIRTII  I, 661), I  I  Ml  I  I,  1 1*  A  III  I, ST  )), 

SI  CP.'LTI  |  ),  IBl  9|  ,8  )  ),(  NRINGI  I  ),GRID(  I ,  TS  I  >,  I  RACNURI  I  I,  GIT  I  01  1 ,  TA  1 1, 
SI  K(  C,  Jll  I  ),  GR  I  01  |  ,  70  I  ),(  NNP.ENT.GRIDI  1,80) ),(  NO:.. 3.901  I  ), 

All  ITU  ?,N9  )  ),( l.-ll  «(  1 ,  1  I.GAIOI  S,  I  > ),(  NT0EN2,  IC(  96, 0  >  ),( ISAROI  I  ), 

/'  RIDI  1,25  )) 

OAT  A  TYPFII.ll/SH  RIN/, TYPE! 2, I  >/6HG  CO/,TYPF( 3,1  )/SMAPFC/, 

1  TVr  r<  s,  I  >/-inr  ION/,  TYPE!  1,2  )/SHQRTH/,  TYPFI  ?,  2  )/HI’0  CO/,Ttt’EI3,2) 

2  /  RFC/,  TYPFI  1, 2  )/MH  T  I  OH/,  TYPE!  1 ,  3  )/MH  PAR/,  TVPtl  2, 3  I/S  HA  CO/, 

3  7  Yi-ll  3, 3  >/'lllRRf  C/,  TVPEI  6,  3  l/HHT  I  ON/ ,  T  YPEI  I ,  S  )/  |H  /,  TYPE  I  2,6  ) 

•l/HH  C/,  TYPE!  3,S  I/2HIS/,  TYPE!  6,6  )/ » H  /,  TYPFI  I ,  S  l/RH  GA/, 

S  TYPFI  2,5  l/SHUCi:;/,  TYPFI  3,S  l/SH  AL«  /,  TYPE!  S,  S  1/ 3'i.'.’,F  /  ,  TYPf  I  1,6) 
6/IH  F.  A/,  TYPE  I  2,6  )/MtlUCME/,  TYPE!  3,6  )/'IM  fit  «  / ,  ?  YPEI  6,  4  >/3cF  NE/ , 

7  fYrf'l  I  ,  7  >/SH  G A/,  TYPE!  2, 7  )/StlUCl(E/,  TYPE!  3,  7  >/>lH  E  1)1/ ,  T YPCI  6,  7  > 
0/2H  3/,  TYPE!  | ,  0  l/'IHDI  TE/,  TYPE!  2,  B  l/SHRI  I  A/,  T  YPEI  3, 1  l/SMA  Y  It, 

91  YPi  !  s.B  I/SHTIIEA/ 

0 37 A  Cl  CIS/-2. TI9CO0SOE»O,S.BS3O8O3SE-3,-s. 78Y0S65IE-6, 1 . 39S2SIS2 
1 C  -  9/ 

DATA  OORTOO  /0.ST.-I .AI.3.6T6SS979E-I,  S  606A632SE-), 

1-6.2"  ’.I  OS  K  *6,  2,0*7943*4C-9/,O0RP/A/-|  ,50/ 

CP.  CHONS  Fi)A  MYO.TOCAllSON,  OIYGE N-COfITAIMKO,  ANO 
VI  ).  ■  •  .-CO  JTAININ3  A  1 1. 3S  . 

DATA  01/  27.6,  32.1  ,  -5 . 5 95  I  909 1 E *6,  I , 1ST 7SS09E-I, 

I  -I  .  1 1ST J029E-S,  3. S9096  739E-9/ 

037 A  c.’/  ij.  T,  13.4,90  0/ 

0.373  /1/  26.1,  29 ,  $.  - T .  9609 ASS2( *0,  I  .  31 1 229221  -I , 

I  -9, 7719121 9E -A,  2 . 5351 2SS I ( -9/ 

DATA  AS/  29, B,  |f.O,  -6 .  1 9 7020 1 A(*B,  T . 0699028*1-!, 

I  -9 . 9  30?9'I*0E-A,  I  .  A9080  I  0  7f -9/ 

DATA  AS/  A. 3.  *7.3,  -1.201  0231  )1*1  ,  I  .  7 322 1  ) 9IE-I, 


CORCIG 
CORCIG 
CORCIG 
CORCIG 
CORCIG 
CORCIG 
CO, 1C  I  G 
CORCIG 
CORCIG 
CORCIG 
CORCIB 
CORCIO 

concic 
rnciG 
rnAciO 
COCCI G 
CORCIG 
CORCIG 
CORCIG 
CORCIB 
CORCIB 
CORCIO 
CORCIO 
COGCIO 
CORCIO 
CORCIO 
COGCIO 
CO  CIG 
coicia 
Co  CIO 
CO. .CIO 
COGCIO 
CORCIB 
CORCIO 
CORCIB 
ro  irie 

CORCIB 

CORCIO 


I  I  73  0.02-IA 


?0 


0  TO  It 

UCTURES  ME  PRESENT.  SET  RING  ARRAYS  NR  INS  RNO  NONARO 

c 


ON  SEARCHES  FOR  OAUCHE  AND  CIS  INTERACTIONS  FOR  WHICH 
L  ATOMS  ARE  NON-RING  ATOMS  AND  FINOS  THEIR  CONTRIBUT- 
ESE  INTERACTIONS  OCCUR. 

0  FAIR  KI-XI  FOR  TESTING.  BOTH  Ki  AND  At  MUST  BE 
ATOMS. 


TA  A  TIE  NOT  IN  FARENT  LOCATION  IN  THE  11  ARRAY  IN  THE 
OF  KI,  PLACE  THEM  THERE. 

.  TIE  .  I  XTKI,  1.4  *  ICALL  SHIFT!  «,«  1 ,0  > 

THE  OOIJO  TYPE  BETWEEN  KI  T NO  Kt 

-Ein.ir.ss 

OOr.'O  PRESENT.  FINP  GAUCHE  CONTRIBUTIONS  I  IF  AMY). 


CALL  FUSION 
MtU«t 
NNBENZ«S 
NOSIK-0 

FI NO  SUBSCRIPT  CORRESPONDING  TO  LOCATION  OF  THIAnOCHEniCAL 
CORRECTIONS  FOR  RINO  K. 

DOTS  R>I,1RC 

CALL  CVCONnl  R,LI I 

;P(U. 81.0)90  TO  TS 

HE«IRE*I _ 

T]  AIMGLK  K  )»Ll  "  ' 

TS  CONTINUE 

I  FI NBENZ . OT . 0. OR . NNBENZ . GT . 0 >00  TO  T7 

BENZENE  OR  PYR10INE-LIRI  RINGS  ARC  NOT  PRESENT.  PRINT  OUT 
STRUCTURAL  OATA  ANO  GO  TO  TO. 

CALL  PR  I  NT  I 
60  TO  TS 

FINO  WEIGHT  CORRECTIONS  AND  ORTHO  (PARA  I  CORRECTIONS  FOR 
BENZENE  ANO  PVRIOINE-LIKE  RINGS. _ 

TT  CALL  HEXQON(  IGS, IQRTHO, I ORPA* ,OQHTHO, DORP AA, HA  I NG , SRING.CPSVH) 

TP  I  Ft  NOKOMBI  I  ) .  EO .  0  )G0  TO  BS 

FUSED  RINGS  ARE  PRESENT.  FINO  RING  CORRECTIONS  FOR  CERTAIN 
HVDROCARBON  FUSEO  RING  SYSTEM. 

CALL  CRIf.‘GS(  IGS,  IANG2 , R I NGD(  l,Z*  >, HR IN6, SRING, CPSVN ) 

FINO  CORRECTIONS  FOR  A  NITROGEN-CONTAINING  FUSED  RING  SYSTEIR. 
CALL  NR1NGSI  IGS, |ANG3,AINGD(  I , Hi > , HR  I NG, SR ING, CPSYH ) 

OELETE  RING  CORRECTION  FLAGS  FROM  RING  SETS  WHICH  FORM  PART 
OF  FUSEO  RING  SETS  ANO  HENCE  HAVE  THEIR  RING  CORRECTIONS 
ALREAOV  INCLUOEO  THEREIN. 


CORCIO 

CORCI0 

CORCIO 

CORCIG 

CONCH 

CORCIO 

CORCIO 

CORCIO 

corcio  n- 

CORCIO 

CORCIO 

CORCIO 

CORCIO  TT- 

CORCIO 

CORCIO 

CORCIO 

CORCIO  TS  - 

CORCIO 

CORCIO 


CORCIG 

CORCIO 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 


»»  J*J»I 

IF< J. GT.nO  )G0  TO  BA 
RzHOELI  j  > 

RINGLKKXO 
GO  TO  BS 

SEARCH  FOR  ADDITIONAL  RING  CORRECTIONS  AS  WELL  AS  FOR 
GAUCHE  ANO  CIS  I NTET.  ACT  I ONS  IN  WHICH  ONE  OR  DOTH  OF  THE 
CENTRAL  ATOMS  ARE  NON-AROMATIC  RING  ATOnS  ANO  FIND  THEIR 
_ CONTRIBUTIONS  IF  THESE  OCCUR. _ 

BA  CALL  SORNGH  IGS,  1GH,  I  GO,  I  05C I  S,  I C I  S,  GAUCHH,  C  I  SH,  C I  SS  ) _ 

ST  I  FT  IGS.EO.OIGO  TO  ** 

.0  RING  AND/OR  5ECONO-OROER  INTERACTIONS  PRESENT.  ESTABLISH  THE 
NUMERICAL  ORDER  OF  THESE  DOlA. 

CALL  ORDER! IGS, IM.KTGAUSI 
IF!  IGO.EO.OIGO  TO  SS 

.0  GAUCHE  ETHER  STRUCTURES  PRESENT.  SEARCH  FOR  THE  PRESENCE  OF 
D I  TER  T I  ARY  ETHER  STRUCTURES. 

CALL  OITEAEI IGS, IGO, IOTE.OTEHI 

.0  F I  NO  THE  LIGAND  ATOMIC  COMPOSITION  OF  EACH  CORE  ATOM  ANO  THE 
_ SYNNETRV  ELEMENTS  OF  EACH  NON-RING  CORE  ATOM  IN  THE  MOLECULE. 

SS  JW*S 
JY*S 

CALL  SVMTAVILII 

.0  FINO  NUMBER  OF  ASYMMETRIC  ATOMS  PRESENT. 

CALL  Asvr.tl  NASYMC  ) 

).0  FIND  LONGEST  CHAIN  IN  PIOLECULI. 

CALL  HA«Ci:.;(  L», NASYMC  I 

1.0  FINO  E I TEW.’AL  R07AT IONAL  SYMMETRY  OF  MOLECULE. 

CALL  E  T  TROTI  NOSN'C ,  NASVKC ,  NRSUDA,  KCSUOA,  NOME  $0  I 
1.0  COMPUTE  INTERNAL  ROTATIONAL  ENTROPY  CONTRIBUTIONS  I  IF  ANY  I. 
CALL  INTROTI ICS, INA, BOTINS  I 
IACMOMAC-HO-MS 
K$UM*10S»IACMD 
IFIXSUn.EO.OlOO  TO  III 

I.B  PRINT  OUT  ORTA  FOR  RINB  CORRECTIONS  AND  SfCONO-OROfA  RING 
INTERACTIONS. 

PRINT  OUT  TITLE. 

CALL  PR INTZI NT  1 TLI  I 
IF<  IRCrO.EO.O  >00  TO  I  Tl 

PRINT  OUT  DATA  FOR  RING  CORRECTIONS. 

001*0  A  *  I , I RC 


CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG  85 

CORCIG 

CORCIG 

CORCIG 

CORCIG 


CORCIG  VS- 

CORCIG 

CORCIG 

CORCIG 

CORCIG  SS- 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIO 

CORCIO  ■*“ 

CORCIG 

CORCIG 

concib 

CORCIG 

CORCIG 

CORCIG 

CORCIO 

CORCIG 

CORCIG 

CORCIG 

CORCIO 

CORCIG 

CORCIO  ZSI 

CO  1C  10 

Cl). ’CIO 

CUACIO 

CORCIG 

CCRCIG  III 

CORCIO 

CCRCIG 


If  APB  f)  0.01*)* 
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U-niNQLKKt 

IF! LI  FO.O  IGO  TO  1*9 

HR  I  CG -HR  I  NG<R  I NGD!  1,11  ) 

SRIKG<SRINS<RINGO<  I, LI  I 
001*1  KK<I.9 

Ul  CPSVFH  KK  XCPSVPH  KK  XA1NG0I  KK<2 ,L I  I 

WRITE!  6,  1*5  X  TYPE! L,  I  »,L<I  ,9  ).K.(  RINGO!  KK,M  >,KK<l,*l 
169  FORMATUM  ,9A9,97,  19,  I2X,  IHI.FIi,  9, 3X,9EI  3,9  I _ 

1*9  CONTINUE  _ _ 

1M  IF!  [GS.EQ.O IGO  TO  291 

THERE  RRE  ADDITIONAL  RING  CORRECTIONS  AND/OR  SECONO-OROEA 
INTERACTIONS  PRESENT  IN  THE  MOLECULE.  PRINT  PERTINENT  DATA. 
IF! IRNG2.EQ.0  >G0  TO  ITT 
00179  K<l , IRNG2 

THERE  ARE  FUSED  CARBON  RING  CORRECTIONS.  PRINT  OUT  DATA. 

I  B  X  <  I  n<  K  > 

I sKFGAUS!  IBX  > 

WRITE!  4.  173  X  TYPE!  L,  1  ),  L<l ,  R  >,  KCGAUS1  I ,  IBX  >,KCGAUS<  2.  IBX  ), 
l<  RINGO!  L,  I  >,L<I.*) 

173  FORMAT! 1H  , RRR , 7X , 21 R, IOX , IHI , F 1 3 . 3 , RX , F 1 3 . 3 . 3X , RE  I  3 . R  ) 

I  79  CONTINUE _ 

17  7  ~IF!  I  rr.'G 3  .  EO  .  0  )G0  TO  183 

THERE  ARE  FUSED  NITROGEN  RING  CORRECTIONS.  PRINT  OUT  OATA. 
K1=1RNG2<1 
KF<IRNG2<IRN<5J 
001BI  K<K  I ,  KF 
IBX  =  in<  K  I 

lAITE!  6,  179  1!  TYPE!  L,  1  1,  L<l ,  R  >,  1  KCRAUSI  L  ,  IBX  1,  L  =  1 , 3  >,  RINGO.  I ,  R»  ) 
179  FORMAT!  IM  , 9A9, 5 X , 3 19, 8 X , 1  HI , F l 3 . 3 , 9X ,  F I  3  .  3 , 3 X  ,  9E I  3 . 9 > 

181  CONTINUE  _ 

183  IF!  I  CRTI:0  . .  ' *  TO  189 

THERE  ARE  OR f HA  BENZENE  CORRECTIONS.  PRINT  OUT  DATA. 


CORCIG 

CORCIG  l*9> 

CORCIG 

C0RCI6 

CORCIG 

CORCIG 

CORCIG 

CORCIG 


CORCIG  Z5T- 

C0RCI6 

CORCIG 

CORCIG  ITT- 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG  Wr- 

COrlClG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

CORCIG 

cone  i  r, 

concir,  TaT^ 
CORCIG 


326. 

KI  =  in!.T.2<IRNG3<l 

CORCIG 

327. 

KF  =  in;.52<ir.NG3*IORTHO 

CORCIG 

-  328. 

00107  K<KI,KF 

CORCIG 

329. 

lOX-IfKK  1 

CORCIG 

330. 

L'lllTE!  6,  185  )l  TYPEIL,2I,L  =  1,91,KCGAU5C  1,  IBX  1,  XCGAUSI  2 ,  1  BX  >, 

concic 

331  . 

1<  GORTHOI  KK  l.KKrl  ,  *  ) 

CORCIG 

332. 

185 

FORMAT!  IM  ,  9A9,  7 X  ,  2 1  9 ,  l OX  .1 1  ,  <  1  3 . 3, 9 X ,  F  1  3  .  3 ,  3 X  ,  HE  l  3 . 9  ) 

CORCIG 

-  333. 

187 

CONTINUE 

CORCIG 

339. 

189 

IF!  lonPAR .EO. 0  ICO  TO  195 

CORCIG 

339. 

C 

THERE  ARE  ORTHO  ANO.'OR  PARA  PYRIDINE  CORRECTIONS.  PRINT 

CORCIG 

33*. 

C 

OUT  OATA. 

CORCIG 

337. 

KI<IRNG2<IRNG3<I0RTH0<I 

CORCIG 

33B. 

XF  =  K I  - 1 ♦ I OAPAR 

CORCIG 

339. 

00193  K<K 1 , KF 

CORCIG 

390. 

lbX<lMIK  1 

CORCIG 

391  . 

J <K  TGAUS!  IBX  1 

CORCIG 

392. 

1  .31  TE<  *,  !  9 1  )!  TYPE!  L,  J  l,L<I  ,9  ),  KCRAUSI  1  ,  IBX  >,  XCGAUSI  ?.  IBX  l.DORPAR 

CORCIG 

393. 

191 

F Pl.il. .11  IM  ,9A9,!X,2I9,10X,IH|,F13.3> 

CORCIG 

399. 

193 

continue 

CORCIG 

399. 

195 

IF!  IGSCIS.EO.O  ISO  TO  21 1 

CORCIG 

39*. 

C 

There  ARE  CIS  CORRECTIONS.  PRINT  OUT  ORTA. 

CCRCIG 

397. 

TC 1 S  =  1  Cl S 

CORCIG 

398. 

CO  1 99  t  =  l,9 

conciG 

3‘.9. 

199 

CRSVnit  XCPSVr.tL  XTCIS*CPCIS!L> 

CORCIG 

350. 

KI<inNr.2<inNG3»IORTMO<IORPAR<l 

CORCIG 

351  . 

XF  <K I  - 1 ♦ 1 GSC 1 S 

CORCIG 

352  . 

00207  X<Xl,KF 

CORCIG 

351. 

1BI<IH!  K  1 

CORCIG 

359. 

CC’Ol  L  =  l,9 

CORCIG 

359 . 

201 

CPCLTI  L  1-Fl  ORTI  KFOAUS!  IBX  )  XCPCISI  L  1 

CORCIG 

35*. 

1  ilTCI  *.  205  11  TV.TI  L.9  ),L  =  I  .  9  1.  XCGAUSI  1 .  IBX  >,  XCGAUSI  2.  IBX  1, 

CORCIG 

357. 

IKFGftllSC  IOX  ),n.WCI5<  1 ,  10*  >.tnTCIS<  2,  !u*  M  CPALTC  L  ) 

CORCIG 

35  9. 

205 

FOr  HAT!  IK  ,9iVl,  7X,2I9,  II  1 ,  F 1  3 . 3 , 9X  ,  F  1  3  .  1,3X,9EI  3.*  1 

CORCIG 

359  . 

20  7_ 

CONTINUE 

CORCIG 

3*0. 

211 

IF!  10.9.  FJ.O  ICO  TO  239 

Co’lCIG 

3*1  . 

C 

TH  :ii£  f;.«E  C'.UCHE  CORRECTIONS.  PRINT  OUT  OATA. 

CORCIG 

3*2. 

xi<in:.':<i:v  13<10RTH0<10RPAR<10SCIS<1 

CORCIO 

3*3 . 

XF=XI-I<IGH 

CCRCIQ 

3*9. 

00221  K  >K I , KF 

CORCIG 

3*9 . 

1 01*1711  K  3 

CORCIG 

17  A  A  71  G.'JI-J* 
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CHINOS 


1.  SUBROUTINE  CRINGS!  IGS,  I RNG? ,  ROA  f  R.  HR  ING,  SR  ING,  CPSVI9  )  CHINOS 

2.  C  THIS  SUBROUTINE  SEARCHES  F OR  CERTAIN  FUSED  CAMION  RING  SYSTEMS.  CHINOS 

J.  C  IF  PRESENT,  IT  APPLIES  APPROPRIATE  RING  CORRECTIONS  TO  I  HE  CRINGS 

9.  C  THERMODYNAMIC  PROPERTIES.  CRINGS 

9.  INTEGER  WEIGHT!  9  >  CRINGS 

6.  DIMENSION  M0ELI90  >,K0MB<  NO,  10  I.NOKOMi!  II  l,CPSYPI(  N  I.ROATR!  6,7  I,  CRINGS 

7.  IKRPROPI  4,  NO  I,  NOR!  10,10  ),«J!  2  I.RTGAUSI  ISO  >,RFGRUSt  ISO  I,  CRINGS 

B.  2RCGAUSI 3, ISO  I  CRINGS 

S.  COPir.ON/BLRZ/UEIGHT.nUGT!  f  l,PiOLUT!  1001,111  100, 9, 4  ),  NCI  100),  RCC  CRINGS 

10.  COM.'.QN/BLKl  /  IRINGI  NO,  10  I,  I  MAT  XI  SO,  BO  >,  NUt  100),  IOC!  100),  RON!  100),  CRINGS 

11.  IIDBfll  1001,10!  IOC, 8), IRG.NOBR  CRINGS 

12.  CGr.:.ON/BLRN/NOCi  40,90  I.NBSl  40,2  ),NRII  60,20),  IRC.NONFUS,  IRCTOT  CRINGS 

II.  EGUi  VALENCE  I  MG,  IB!  1 2 ,  IS  ),  <  MDELI  1  I,  IB!  1  3 ,  I  >  I,  I  ROMO!  I ,  I  I,  IB!  62,  N  )  I,  CRINGS 

IN.  !<  r  OK  "MO!  I  I,  IB!  80,8  )»,!  NOR!  1,1  1, 1I1ATK!  1,59  I  >,!  KRPROPI  1,1),  CRINGS 

19.  2N0XI  2, 1  )  1,1  KTGAUSI  I  ),  I  MATH  1,60)  1,1  KFGAUSI  I  >,  IMATX!  1,63)1,  CRINGS 

14.  31  KCCAUSI  I,  I),  1MATK1  1 ,72  1 1,1  KJ!  I  I.NBU  28,20  I)  CRINGS 

IT.  CI.O  INITIALIZE  CYCLE  THAT  TESTS  EACH  FUSED  RING  SET.  CRINGS 
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IB. 

19. 

20. 
21. 
22. 
S3. 
2N. 
29. 
24. 
2T . 
21. 
29. 

C2.0 

C3.0 

C 

!C*NOKOPIi!  1  > 

D01I  1*1, 1C 

IFINOROnai  i»l  I.NE.2IG0  TO  11 

THERE  are  two  rings  in  fuseo  ring  SET  1. 

KIsROMOl  1,11 

K2=K0M3t 2,1  I 

FIND  THE  FIRST  3 -CENTERED  RING  1  IF  RNY I  IN  SET  1. 

IF!  IRINGIKI,  1  >.«£.  3  )G0  TO  1 

RING  1  IS  3-CENTEREO. 

RJ!  1  >*K1 

KJI  2  )=K2 

GO  TO  9 

CRINGS 
CRINGS 
CRINGS 
CPINGS 
CRINGS 
CRINGS 
CRINGS 
CRINGS 
CRINGS 
CRINGS 
CRINGS 
_ CR!_NGS_ 

10. 

1 

IF!  Illlf.S!  R 2,  1  I.NE.  1  ICO  TO  1 1 

CRINGS 

11  . 

c 

RING  2  IS  3-CENTERED. 

CRINGS 

32  . 

RJ!  1  >iR2 

CRINGS 

23 . 

KJI  7  i*RI 

CRINGS 

3N. 

CN.O 

AT  LEAST  ONE  OF  THE  TWO  RINGS  IS  3-CENTFRCD.  NOW  OETFRMINE 

CRINGS 

35. 

c 

ones  RING  PROPERTIES. 

_ CHINOS 

"JOT 

3 

RSL. :  -..YG-GCRI  1 ,  K  1  )♦  :<  OP  COP!  3,K  1  )  ♦  K  IIP  H  Q  P I  5  ,  K  1  i  *M.P:)OP!  1  ,  R2  >♦ 

CHINOS 

3  T . 

1  J,:i2  )+.<rPROP(  9,  R2  1 

CRINGS 

38. 

IF!  K  SUM.  I.E  .  0  MU)  TO  II 

CRINGS 

39. 

C9.0 

BOIH  RINGS  ARE  SATURATED  CARBON  BASED  RINGS. 

CRINGS 

NO. 

NXKJ1  2  ) 

CRINGS 

N  1  . 

N2?l  RING!  111,1  I 

CRINGS 

N7. 

C4.0 

HO’J  MANY  COMMON  ATOMS  00  RINGS  POSSESS 

CRINGS 

N3. 

IF!  NOR!  2,  1  >-2  19,  T,  1  1 

CRINGS 

•15. 

C 

111  f.(\S  HAVE  1  ATOM  IN  COMMON. 

CRINGS 

"NS 

9 

IF!  N2  3  ICO  TO  1 1 

C RINGS 

N4. 

C 

SECOND  RING  IS  ALSO  3-CENTEREO.  SET  RING  CORRECTION  FLAG 

CRINGS 

NT. 

C 

FOR  SPIGOPENTANE. 

CRINGS 

NO. 

N3*l 

CRINGS 

N9. 

GO  TO  9 

CRINGS 

50. 

c 

RINGS  HAVE  2  ATOMS  IN  COMMON. 

CRINGS 

*9  1 . 

T 

IFIN2.GT.3  U'tO  10  II 

~CI')IGS 

92. 

C 

SFCOND  RING  15  3,9,9,6,T,  OR  O-CENTEREO.  SET  RING 

CRINGS 

5.1. 

C 

correction  FLfir.  for  uicyclo-i  i,i,o>-oufane. 

CRINGS 

SN. 

C 

-12,1,01-PCNTANE,  -«  3, 1,0  l-HEIANE,  -1  9,  1,0  l-HEPTRNE, 

CRINGS 

99. 

c 

-15,1,01-OCTANE,  OR  -14,1,0  l-NONANE . 

CRINGS 

96. 

N3=N2-I 

CH 1  (  GS 

5  7._ 

CT.O 

STORE  TWO  RING  NUM9ER5  IN  HOfL. 

CRINGS 

56*. 

9 

ril)=MO*l 

CRINGS"  ■* 

59. 

rori.i  f.o  )*r  ji  1 1 

CRINGS 

60. 

FO-r:o»l 

CRINGS 

61  . 

f  'ELK .3HRJI2I 

CRINGS 

62. 

CB  9 

5H  1  II  0”£  OF  THE  AFOR'NCMT  lON'EO  FUSFO  C  ARGON  PING  SYSTEMS . 

CRINGS 

41. 

C 

.'GO  COARCCt  IONS  TO  m'fli  GUVOR.-ilC  PROmcRTIES,  STORE  PFAIINENT 

CRINGS 

6  N . 

c 

P.IINICUT  DATA,  A;  0  CONTINUE  Till  TEST  OF  OlHkA  FUSEO  RING  SETS. 

CRINGS 

49. 

ti.ni:  ;-i  .iif.-.*'1o.iTAi  i , nj  i 

CRINGS 

64. 

SOING-S  ucghioutai  2, N9  1 

CRINGS 

- 

AT. 

DOIO  KR* 1 , 9 

CRINGS 

1 

40. 

C.-5/C.1KK  MCPSVfMKK  MADATAI  RR«2,N3  ) 

CRINGS 

49. 

10 

CONTINUE 

CRINGS 

•0. 

IH’  2'IHTIO**! 

CRINGS 

7 1. 

ig;i|gs*i 

CRINGS 

ri. 

PTC  'US!  IDS  1*1 

CRINGS 

T  3 . 

RFC, '.US!  IOS  >»Nl»t! 

CRINGS 

OI-I* 

II  - 


3-1 


;i  H 


1 1 


5-jT-, 


’-1 


TT 


iAMMunani 


SUBROUTINE  CTwp(  |  GS,  I  NA  >  CTWO 

C  TN!5  SUMOUTIKC  CHS  CIS  FOP  THE  PRESENCE  OF  NOt  GAO  UPS  AMD  Ct  WO 

C  HONOCvCUC  RAOHRTIC  RINGS  WHICH  UMIIIT  TWOFOLD  I  NT  I A  N  A  L  Ct  WO 

C  ROTATIONAL  SYHHlTAV  ABOUT  AN  All*  WITH  A  NONLINEAR  CT  WO 

C  COMF1  6 UA  AT  I  0  N  .  if  present,  it  s  t  o  a  e  S  The  featinent  i.d.  Cfwo 

C  NUMBERS  ANO  CO  NT  A  I  S  UT  I  0  NS  TO  THE  I  NT  A  0  F  V  .  Ct  WO 

INTEGER  $  *HIt  A  1,  $  V  MtO  U  A  1,  DAI  01  »#,  II  »  CT  Mb 

1  NT  C  CCA  WKIGMfttl  L'T  WO 

01  HENS  1C N  A  C I QO  I  t  3  1 ,  I C  BA  US  t  S  ,  I  10  ) ,  Q  AT  C  I  S  (  t  ,  I  90  KT  C  A  US  (  190  I,  CT  WO 

l  A  T  AC  M2  t  NO  1  'T  WO 

CO  HH0  N/  B  L  I  1  /NO,  NOS,  S  VHT,  SVHBO  L,  HO  V  A  L<  4  1,  8A  I  0  CT  WO 

COHH0N/ILMI/WEI  GMT  ,  HW  GT  f  A  1 ,  M0  L  WT  t  I  0  0  >,  I  It  100,  9,  A  ) ,  NCt  I  00  I,  ACC  CTWO 

CO  nno  N/ ALAI/  I  A  I  Ngt  MO,  SO  I,  I  FIAT  It  JO,  AO  1,  NWI  I  00  ),  I  BCt  I  00  >,  10  Nt  I  00  it  CT  WO 

1  I  D  B  A  (  1  0  0  ),  I  A  (  100,  A),  (Afi,  NO  IA  LT  WO 

COUl  VALENCE  t  A  C  C  A  ul  (  l,  I  IHAT  14  I,  71  )  ),(  DAT  CIST  I,  I  ) ,  I  HAT  It  X  ,  4  *  >  )  ,  CTWO 

I(NriCN2,li(f*,l)>,<KTACNZ<l  1 ,  GA  I  0  <  Ml  ,17  )  ),  (  AT  G  A  US  t  I  1,1  HAT  Ct  1  ,  40  )  )  CTWO 

Cl  4  CHECK  FOA  NO  2  GAOl/FS  WHICH  AA  I  NOT  BONDED  TO  LINCAB  LIGANDS.  CTWO 

CO!  I  •  I,  ICC  CTWO 

I  Ft  NCt  I  >.  CO- AO*t  I  1  >C0  70  >  CTWO 

J  C  *  NCt  I  )♦  I  CTWO 

J  F  ■  1 0  Nt  f  )#  I  CT  WO 

001  JIJI.JI  CTWO 

Ift  I  It  I  ,  J,  i  >.  NE.  0  >50  TO  I  CTWO 

iFt  I  »C(  I  >.  Nf.  0  )60  TO  lOt  CTWO 

C  NOl  GAO  OF  Aft  SINT.  CTWO 

CALL  Lf NEAAt 1 000  I , LI NK, It VN>  CTWO 

I  Ft  LI  ME.  IQ  1  )B0  TO  I  CTWO 

C  NO  2  LIGAND  NONLINEAR.  CTWO 


100  I  NA  *  I  NH ♦ i  CT  WO 

J6S-!6S«i  OWO 

A  CGAuSt  I  ,  I  GS  )•!  CTWO 

AT  GAUS  <  I  GS  >*f  CT  WO 

0  AT  Cl  S  <  l  ,  I  OS  1"  -  I  .  I  T  TAB  _  _ _ _  CT  WO 


>  . _ I  CO  NT  I  NU5 _ _ _ _ _ _ _ _ CT  WO  j 


I  CONTINUE  CTWO 

Ct  .  0  IF  HONOCVCLIC  AH  0  HAT  I  C  A  I  N  GS  AA  |  NOT  FACSCNT,  ACTUAN.  OTHERWISE  CT  WO 

C  CONTINUE.  CTWO 

I  Ft  NT  BENI  .  CQ  .  0  >ACT  UFN  CT  WO 

CI  O  INITIALIZE  MAIN  CVCLf  THAT  SEARCHES  FOA  THE  PRESENCE  OF  CTWO 

C  I  NT  t  A#t  A  L  TWOFOLD  SVHHlTRf.  CTWO 

DOIT  N  *  I  ,  NT  BENZ  CT WO 

A  «AT  DC  Nit  N  >  CT  WO 

C  TEST  ALL  CO  HF  0  MEETS  OF  RING  A.  CT WO 

00  »  7  J»*  ,  t  CT  WO 

I  I  *» A  I N4f  A, J  1  CT  wO 

I  F  <  10  Nt  I  I  1  .  LC  .  I  )  GO  TO  IT  CTwO 

C  connect  /  wiry  of  atoh  a>  is  greater  ;  man  t.  CTwO 

10*1  CTWO 

J  F  ■  A 0  M  A  |  >♦  I  CT  WO 

C  FIND  THE  RING  ANO  NON-RING  L I  6  A  NOS  OF  MAC  ATOH  II.  CT  WO 

00  t  I  I  *  1  ,  J  F  CTwO 

AC*I  Ft  II,  I  ,  0  I  CTWO 

IFdC.IMKO  TO  T  CTwO 

IFt  I  BCt  1C  1.  ME.  I  BCt  II  I  ICO  TO  f  CTwO 

C  IIGANO  IS  A  A  I N  6  ATUH.  STORE  ITS  GAOUF  NUHBCA.  CTwO 

10*10*1  CTwO 

1  ft  :0  6T  I  )  60  TO  I  T  CT  WO 

ICVOO I t  10  l-l C  CT  wo 

60  TO  II  CTwO 

C  L  Z  r  *  AO  IS  AON'Ai  AG  (ORE  ATOH  IF  NONLINEAR,  TRANSFER  70  CTW0 

C  _  f.  OTHERWISE,  TBiMSFEA  TO  It. _ _ _ Ct  WO 


i  IFt  I  BCt  AC  I.  ME  .  0  160  TO  f  CTwO 
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n  .--l.-^yTff'WI'^V*1^^  :  Tirw'TSPM  ««**'-■*?’-.(■  l,IJ1>'<*l»H-^  '.^'  >  W  Tt  "TFTW  W%*  .  ,*.,^pB  W(; ,'  J ITWV 


ta . 
r  r . 

7  9 


0* 
0  7 
o« 
0* 

1  0 
1 1 
1  2 
I ) 

1  4 
I  9 
I  4 
I  7 

1  9 
1  1 

2  0 
2  I 
22 
2  3 
2  4 
2  9 
2  4 


3  4  . 

39 

3  4  . 
3  7 
1  • 

3  9  . 

40 

4  I  . 

41 


A  4MZ4  ,  4H  ,  4H 

S  -  |  .  499  1  748  4t*o, 


,  1014, 

.  019240001-2, 


-  I 


3.30, 

3  5  3  4  4  1  2  7  E  • 


3  4393932SC- 

OAT  A  (  G A  0  UP  H  L),  GAO  UP  2 (  l  >,  GA  0  UP  3  <  L  I,  S  UPI  L  >,  HF  2 1B<  l  |,  $2  111  L  1, 


OAT  A) 
0  AT  A  1 
DAT  At 


79  . 

ACP  1  C  L  ),  C  P  2  (  L  > ,  C  P  3  ( 

L  1,  CP  4(  L  >,  L*  2  •  , 

33  1/ 

b  AT  Al 

0  0  . 

*4MZ  C  ,  4H  ,  44 

,  1U4, 

9.51,  - T . 44, 

0  AT  Al 

•  1  . 

C  7  .  1  4| 72 1 4 1 C-  1  , 

7. 074441 74C-3, 

-2  .  1  94244701-4,  -  1  .  2  1  3  0  1  3  1  Of- |  0, 

DAT  Al 

•  2  . 

D4HX0  ,44  ,44 

,  1441, 

9.40,  -7.00, 

OAT  Al 

13  . 

E  2  .  03  42  0  5  7  7f*0, 

5 .  7  5  7  5  3  2  0  8  E-3, 

- P . 137120  JOt-4,  -3.504174411*11, 

OAT  Al 

•  4  . 

P4HZT  ,44  ,44 

,  1494, 

5.40,  -7.00, 

DAT  Al 

•  9  . 

G-2  034209771*0, 

5.7  5  7  5  3  2  0  IC-3, 

-  2  .  1  3 7 |  2  0  48  E- * ,  -  3  .  50  4  1  7  9  4  1  C- 1  1  , 

DAT  Al 

•  4  . 

M4HZZ  ,44  ,44 

1  996, 

4.94,  -4.44, 

OAT  Al 

•  7  . 

1  -  7.1  1  1  0  1  3  7  4E-  l  , 

1  .  712  441  45E- 2  , 

-  1  .  94  4  9  70  7  ?C-  5 ,  4.7  0042  9  1  41  -  9  , 

OAT  Al 

99  . 

J  44  A  ,44  ,44 

,  4  4  T  , 

34. 20,  4. 00, 

OAT  Al 

•  9  . 

4  1 . 0044443 1 C*0, 

1 . 734265431-3, 

-  7  .  1  4430  43  1  C-  4  ,  2  .  0  2  3  74  7  53E - 4 , 

CAT  Al 

9  0  . 

L4NZ1  ,44  ,44 

,  444  , 

4.84,  -4.4325, 

0  AT  Al 

4  1  . 

«- 4 .  45  42  2  480  E-2  , 

-  1  .  02  3  462  09E- 9 ,  2  .  1 3 4 1 C  7  0  4 E - 4  / 

0  AT  Al 

92  . 

C2  .  0  DAT  A  POA  0  X*  GE  N 

-CONTAINING  GROUPS. 

OAT  Al 

93  . 

OAT  A  (  GR  0  UP  1  <  L),  GR  0  UP  2  <  L),  GAO  UP  3  (  L  >  ,  S  U  PM  L  1  ,  HF  2  4  •  (  L  )  ,  $  2  4  f  <  LI, 

0  AT  Al 

9  4  . 

A  CP  1  (  LI,  CP  2  (  t),  CP  3  I  L),  CP4<  LI,  L*9», 

57  )/ 

OAT  Al 

49  . 

B4H<  CO  ),  4M<  CO  ) ,  4  H  C 

,  1502, 

-24.2,  0.0, 

OAT  A  1 

4  6  . 

C  4*0.0, 

OAT  Al 

4  7  . 

04H<  CO  ),  4  HO  0  ,  44 

*  1*59, 

-33.5,  0.0, 

D  AT  Al 

90  . 

E  4*0.0, 

0  AT  Al 

44  . 

F  4H(  CO  I,  440  Z  ,  44 

,  1051, 

-H4.0,  0.0, 

OAT  A  1 

00  . 

G  4*0.0, 

0  AT  Al 

0  t  . 

H  4  M  <  CO  ),  440  C  ,  44 

,  40  1  , 

-31.4  ,  14.70, 

OAT  At 

02  . 

1  3  .  1  42  42  4  3  4  E  ♦  0  0  ,  1 

.02  9  4  1  40  4  E " 0  2 , 

-3.35001574E-04,  -7.82103825E-10, 

0  AT  Al 

03  . 

J  4M<  CO  ),  4M04  ,  44 

•TO, 

-24.$  ,  34.43, 

0  AT  Al 

0  4  . 

«  4.*33004*3E*00,  4 

.  5  8  4  4  1  0  5  0E-  03  , 

4  ,  0  3  3  1  5  3  43  E  -  0  4,  -  5  0  5  4 1  4  2  9  2  E  -  0  1  , 

0  AT  Al 

0  5  . 

L  4M<  CO  1 ,  4  MOM  ,44 

,  17  17, 

-31.7,  0.0, 

0  AT  Al 

n  4*o.o, 

N4M<C0>,  442Z  ,44  ,  2700, 

0  4*0.0/ 

DATA  (  G»0UM  (  LI,  GAO  UP2<  LI,  GAO  UP3<  L  ; 


,  S  gftl  L  1  ,  Hf  2  4I(  L  ),  52  4I(  L  ). 


0  AT  At 
DATA) 
OAT  A  1 
0  AT  A1 


ACPI*  L),  CP2<  L  ) 

,  CP  3<  L ), 

CP  4t  LI,  L»  58 

44  )/ 

0  AT  A  | 

0  4  M <  CO  »,  4MIC 

,  44  , 

1  023  , 

-3  T 

4  , 

0.0  , 

0  AT  Al 

C  4*0.0, 

OAT  Al 

04HC  CO  I,  4  N  Z  4 

,  4  N  , 

1  T  2  0  , 

-3  1 

T  , 

0.0  , 

0  AT  Al 

l  4*  0  .  0  , 

0  AT  A| 

P  4H(  CO  >,  4HCC 

,  44  , 

4  44  , 

-3  1 

5  , 

19.01, 

0  AT  Al 

G  3 . 30141 44CE*00, 
MHMl  CO  I  ,  4NCM  ,44 
1  *'.  A330C461E*00, 
J4H(C0),4HHH  ,  4  M 
*  4 .  2  6  C  3  4  702 [*00, 


7  1  43  49  4  1  7  E -  0  3  , 

,  143, 

4 .  9i  441  I90E-01  , 
.  7  40  , 

4.5  1  1  5  01  4  4  E -  0  3  , 
I  i  2  4  , 


2  3  3  3  2  2  4  4  1  C  ~  0  4 ,  -3 

-15.4  ,  34.43, 

4.03345343f-O4,  -5 

-27.7  ,  5347, 

I  .  I  2  4  3  3  9  7  4C  -  0  9  ,  -7 

-50.9,  9.0, 


197441 80E-04, 
05‘*44242E-09, 
280479 43 £-01, 


1.4  HO  (  CO,  4  H  M  CO,  4H  1 

n  •••o.o, 

44HO<C0,4M)0  , 4H  ,  1003,  -14.0  ,  0.0  , 

04*00/ 

OATA  <  0«0  09  M  LI,  GAO  UP  2 (  L>,  GA  0  UP  3  I  L  >,  S  l/PM  U,  HF24I(  L  >  ,  S  I  4  •  <  L), 
ACPI*  L),  C  P  2  I  U,  CP  3  <  II,  C  P  4 1  LI,  L  ■  5  5  ,  71  >/ 


i  2  7  . 

20. 

•  4M0<  CO,  44  >0 

C  4*p.0# 

,  44 

,  1  • 42  , 

-  41  , 

>  *  , 

0  .  0 

I  24  . 

130. 

0  4  MQ  1  CO,  44  1C 

C  4*0.0, 

,  4  4 

,  440, 

-  41 

3  , 

•  31 

ill. 

P  4M0  <  CO,  44)4 

,  44 

i  0  6  9, 

-  40 

3  , 

2  4.52 

3  2. 

G-  1  .  0  *92  449  7  C  *  00 ,  2 

41  10544IE-02, 

-2. 44  1  9  3  »  7  «E 

-05, 

H  4400  C  ,44  ,44 

I  3  .  9  9  3  7  5  9  0  9  f  «  00  ,  -  I 
J4H000  ,  4  H  ,  4  M 

A  3.  443  75185E*00,-I 
L  4  HO  0  H  ,  4  H  ,  4  H 

74  ?  .  49  r  2  0  9  32  r  ♦  00  ,  1 

N  h  M  0 DO  ,  4  H  ,  4N 

0  4*6.0/ 

OATA  (  G4  0UP1I  L  I,  GAO  UP  2  I  L  I,  GP0uP3<  L  »,  5  U"«  L  >,  HF*4#<  L  I,  S2  10I  L  I, 
A  CP  1  4  t  I,  C  P  2  (  L  I,  C  P  3  4  LI,  CP44  l  I,  l«  *2  ,  70  )/ 


,  4  4  7  , 

.  9  4  3  1  8580E-03  , 
412  , 

,  9431  8580E-03, 
i  3  44, 

.  I  4  3  2  3  3  5  3  C-02  , 
,  2140, 


-4.9,  9 

3  **5093#  79E-04 

19  0,  9 

3.  450'’3«74f-04 
-14.27,  27 

-9.  11242325 E -04 

-12.0.  • 


-  1 

4  , 

-  1 

•  9  , 
2 

I  , 


015010911-04, 
1 412071 JJ-04, 


141207MC-04, 


479910091-09, 


0  AT  Al 
OAT  At 
OAT  A  I 
OAT  A  1 
DAT  At 
OAT  A1 
0  AT  4  1 
OAT  A  I 
OAT  A) 
OAT  A  I 
0  AT  41 
DATA! 
OAT  A  1 
0  AT  Al 
0  AT  A  J 
0  AT  Al 
0  AT  A| 
0  AT  Al 
0  AT  A| 
0  *  T  A  | 
OAT  A  | 
0  AT  A| 
0  AT  Al 
0  AT  Al 
0  AT  A| 
0  AT  Al 
0  AT  Al 


1  4  3 

•  4H0  0  C 

44 

,  44 

1  2  14, 

-3  13  , 

0  0  , 

0  AT  A  1 

144. 

C  4*0.0 

0  AT  A  | 

1  «9  . 

0440/2 

4  H 

,  44 

,  2146, 

-19.3  , 

0.0  , 

0  AT  Al 

1  44 

f  4*0.0, 

0  AT  A  1 

147. 

r  iHtr  c 

44 

,  44 

,  12*1, 

-22.6  , 

0.0  , 

0  AT  Al 

1  40  . 

6  4*0.0 

0  AT  A  | 

1  41 

4  440  Z  4 

44 

,  44 

,  1106, 

-37.4  , 

2  9.1  , 

OATA} 

190. 

1  4.  00  1  4  3  2  4  3  (* 

00,  -f 

24724611 (-03, 

1.4001541 

lf-09,  -*454150021-04, 

0  AT  A| 

PCI  r 3  002-39 
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''TT* 


111. 

J4M0CC  , ON  ,ON 

91 1  ,  -*l .  1  , 

ft  .  4ft, 

04T  4| 

i  si . 

K  t  .  (310  (0(01-40, 

-i . t»,i i mc-oj,  r . )  ,t i •*•) c-ot,  •; 

>  .  49439  4001-09, 

04T41 

1  S3  . 

LOH0  CM  ,  ON  ,  ON 

, 

19. 61. 

0  4T41 

1  9  4. 

N  S . 9141 TO*4|oOO, 

-4.  TlOtlOtlK~03,  1.419(09111-01,  -1 

i  .  3*  9891  1  (  9-09, 

OAT  41 

1  9  4  * 

MONO'  CO ,  ON  >0  , ON 

, 

IIII,  ».l  , 

0.0  . 

OAT  41 

\  94. 

0  0*0 . 0/ 

DAT  41 

1ST. 

DOT  4  1  0*0  0*  HU, 

Q9  0  UP  SC  t 

:,IIOuMUI,iulll) 

,  HP*9|<  L  .‘, 

5 1  9 •  c  t  >, 

0  4T  41 

1  SO. 

«CH<  l  t*t(  L),  e»J<  l  ),  (Ml  L>,  *»  )/ 

04T  41 

1  f  9 

•  OHfll  CO,  ON  Ht  ,  ow 

119),  9.9  , 

0.0  , 

04T  41 

1  40. 

C  90. 0, 

04T  41 

1  41  . 

oo HOC  CO ,  ON  IN  ,  on 

t 

1494,  1.4ft, 

O.ft  , 

04?  41 

1  4 1  . 

I  00.0, 

D4T4I 

1  41 . 

9ON00D  , ON  , ON 

§ 

t 1 94 ,  4.9  , 

0.0  , 

04T  41 

1  44. 

ft  0*0. ft. 

04T  41 

1  49. 

N  0  N  1)0  C  ,  ON  ,  0  N 

, 

Mr*,  10  3  , 

O.ft  , 

ft  4  T  4| 

1  44. 

I  0*0. ft. 

OAT  4  » 

1  47. 

J  OH 00 N  ,  ON  ,  ON 

1149,  4.4, 

ft  •  ft  * 

0  9T  4  1 

1  41  . 

«  • .  OS44  (33  IT-0  1  , 

1  .  2  42  2  L3  40  C-02 ,  t  3209*0139-04,  1 

1 1 0319199-09, 

t3  NT  41 

1  49. 

tonic  CO,  ON  >  ,  ON 

i 

UM,  9  T  , 

O.ft  , 

D4T  4) 

1  ro. 

n  left . ft. 

OAT  4| 

»  11  . 

NONI0  , ON  , ON 

* 

1119,  -1ft, 

- 1  ft.  *  , 

OAT  At 

i  It 

0-*. 004?(*30f*00, 

0,041(01411-02,  -0. 0394*3499-01,  1 

.  90ft30ft  009  -09/ 

DAT  4  | 

1  1)  . 

DOT  4  C  CKO  UP  1  (  l  >  , 

C40  UP  2  C  t  ' 

1 ,  CM  0  UP  3  (  t  )  .  S  U  M(  L  ) 

,  Ml  *  9ft(  t  1, 

5  2  9  4C  l  ), 

OAT  41 

1  (o. 

4  CP  1 C  l),CP*C  t  1,  CP  3  (  t),  CP  4(  t  i .  t*>4,92  )/ 

OAT  Al 

1  is . 

40HCC  CO,  OHM  CO,  9  W  )  M  M  , 

1  S  1  l  ,  -  T  .  t  , 

Oft  , 

OAT  41 

1  T4. 

C  0*0. 0, 

OAT  41 

i  ir . 

09MCC  CO  ,  ON  )CCH,  ON 

$ 

1494,  -19  , 

- 1  a  ft  , 

OAT  41 

i  ?o. 

c  o#o.o. 

041  At 

1  14. 

r  ONCC  CO ,  ON  )  CNN,  ON 

* 

♦If,  -l.ft  , 

9.4  , 

OAT  4} 

too. 

C  3  .  1942  0  1  3  09-  0  1  , 

2 . S 1 (1 t 0399-02 ,  -I. 0440509*9-01,  7 

3  09  *6  ?  0T£-ft9, 

OAT  41 

1  01  . 

MOHCC  CC  ,  ON  )  CCC,  ON 

* 

1141,  14, 

0  0  , 

OAT  41 

1  01  . 

1  0*0.4, 

OAT  41 

1  03  . 

i  OHCC  CO  ,  ON  >MNN,  ON 

t 

•  ft,  -1ft. OS. 

30  01  , 

OAT  At 

i  oo. 

I- 1  .  4(«*3930t-0  1  , 

2 .  003*  4  02  49-  02 ,  -  1  .  1  4 T 1 9 3 94 9  -  0 S .  * 

1 40351 319-01, 

OAT  41 

1  OS. 

LONCCOC.ONC  ,  4  N 

* 

4  1  f  ,  -14. ft  , 

0.0  , 

0  4T  A| 

1  04. 

N  9  •  0  .  ft  , 

OAT  At 

i  or. 

MONC00C,  ONN  ,  0  N 

, 

STI,  -11*  , 

O.ft  , 

DAT  41 

1  *9 

0  0*0.0/ 

DOT  41 

1  04. 

04T4  C  C«r  UP  1  C  t  ),  COO  UPIC  L  ) 

GAO  UPif  t  >,  5  U«C  t  ), 

M  P  2  9  ft  <  L  1 , 

StlftC  t  1, 

OAT  At 

1  40. 

•  CP  1C  u,  CP  2  C  L  >,  CP3C  1>,CP0C  l),  L«9), 11  )/ 

OAT  41 

141. 

9  0  H  C 0  0  N ,  ONN  ,  ON 

* 

0*9,  -1 T. (  , 

ft.  0  , 

OAT  A) 

)4|. 

c  o  •  ft .  o , 

CAT  41 

1  93. 

DON  COIN,  ONN  ,  ‘IN 

* 

13  11,  -  4  4  , 

9.7  , 

OAT  4k 

140. 

f  0*0.0, 

04T  4| 

1  4|  . 

t OHC0  OH,  ONN  ,  ON 

i 

1  JOft,  -4.9  , 

0.0  , 

04T  41 

1  94. 

ft  o*0 . ft. 

0  4 T  4) 

141. 

MOMC0  CC,  ONC  ,  ON 

. 

404,  *4.  >0, 

•  33 ,  94, 

OAT  41 

1  90. 

1  -  4.2  1  04  (  34  1  9  *  tf  0 , 

S. 14*4*3919-01,  -4.1414(99(9-09,  2 

. 0(4002019-04, 

04T  41 

1  44. 

*19  CO  C  C  ,  ONN  ,  0  N 

S3  ?,  - r . 00, 

-11.00, 

04T  41 

too. 

1-9.114* (9209*00, 

. Oooi 142 19-04, 

OAT  4| 

*01  . 

lOHCC CN, ONN  .  ON 

, 

43*,  "ft.*  , 

i  o  .  o  i  . 

0  47  41 

*01  . 

N-)  04i  1  OS  f 41 , 

3.49  )  4)  0149-  01  ,  -  3 . *  01  )  1  3  (09  -  0  5,  1 

1  3  943  9  3  H-04, 

04T  4) 

201. 

MON  CO  MW,  ONN  ,  0  N 

t 

191  ,  -IP. Oft, 

JO . MS , 

OAT  41 

too. 

0-1  .  (SO  M  3ft  oc-ft  1  , 

t .  004C? 1 1  SC  -  0* .  -  1 .  1  44039101-01,  * 

14*133909-09/ 

04T  41 

*  Of  . 

C3  .  0  0AT4  run  Ml  TAO  G(  M- CO 

4  t  M  I  M  ft  tAOUftt. 

0A1  41 

104 

041*  C  GP  0  UP  II  t  5 ,  GA  0  UP  *  C  L  ( 

,  64  C  UP  3  C  1.  1,  S  UN<  t  >, 

M  P  2  9  ft  (  t  ), 

5  *  9  4  C  t  ), 

OPT  41 

A  CP  1  C  It.  CPIC  l ) , tP)l  L  >,  CP  9<  l  ) ,  L«  1  1  •  ,  1 1  •>  >/ 


|*(MCHMM(  *iMN  ,  *H 

c- 1 .  M*nn ‘•f-oi  , 

DAMCMCH,  4HM  ,  4N 

f-i .  miuui c*4ft, 
r  4MCNCC,  4MN  ,  9  M 
6-3 .  ?J ? 9 I *049 *0<», 
H9MCMCC,4MC  ,  9  N 
(•>9.411  »*if  ?r  *co  , 
J  MKCNh,  ON  ,  M 


.  Mi  , 

.  N032  ft  •*»  *9-01 , 

•  If, 

.  0  l  2  (93  ft* 9-  ft* , 

,  lift, 

•  2  94099  (( -  92 , 
*  I  ft  I  1  , 

(inn  ft»c-o*, 

,  499, 


-  I  0  .  6ft, 


.  1^99  or  Jtt*00,  I  COMIHir-Ol, 


•1.(4110  441-09,  I 
-44,  9.9  , 

-13)0*4(0*9-09,  ( 

-  9  .  J  ,  -  U  .  T  , 

-  3 .  ft*  Tftl 11 *9- 01,  1 

•).!  ,  -Jo,  |  , 

-1.390*94949-03,  2 

0.0  ,  19, VI, 

-  1,3  1  (2  03  )  49  *  0  4  ,  -  1 

19.0  ,  9.90, 

-1.09(71(1)1-09,  2 


I  90)9 !  )  9  9 • 


(  .  0004010)9-0 


1  .  3911)99(9-0 


0 1  0 • 4  o 1  99-0 


344401049-1 


I  (  9  (  9  9  90  9  - 


.  09o|  999(9-0), 


0) ) 4) *  of  9  -  C 
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9.01, 
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1  .  09X0309  7|-02 , 
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,  9  M 
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13.10, 
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0  AT  Al 
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DAT  Al 

J  9  H  9  1  H  ,  9  N 

,  9  M 

,  929, 

0,0  , 

0.0  , 

OAT  Al 
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OAT  Al 

L9MM1C  ,9N 

,  92* 

,  Jll, 

2  1.3  , 

0.9  , 

OAT  Al 

21  9*0.  0, 

OAT  Al 

N9HMIZ  , 9M 

,  9  M 

,  1 9*9 , 

10.7  , 

0.0  , 

OAT  Al 

C  9*0.0/ 

OAT  Al 

OAT  A  1  GAO  UA  1  ( 

L  ), 

GA0UA2I  L  I,  GAO  UA3(  L  >,$UIM  Li, 

,  MF  2  9  01  L  > ,  S  2  9  ft  <  1.  >  , 

DAT  Al 

ACA  ML),  C  A  5  (  l  1 

,  CA3(  t  ),  CA  91  L  >,  l»l  31 

,130)/ 

DAT  Al 
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,  9  M 

,  52  2  , 

2  9.1  , 
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DAT  Al 
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0  AT  Al 
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2  3.0  , 

0  0  , 

OAT  Al 

C  9*0. C, 

OAT  Al 

0  9  M  CO  > ,  IMAM 

,  AN 

,  12*9, 

-29 . 0  , 

39.93, 

OAT  Al 

E  9.  A  1  3  0  0  ^  A  3  E  ♦  0  0  , 

0  .  5*  991  050E-03  , 
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01  TIM 


SUBROUTINE  OITCMI  IBS, IGO. lOTE.OTSH I 

THIS  SUBROUTINE  DETERMINES  NHETHEN  THERE  MI  QNt  ON  MM 


01 TINTINNT  CTHCN  GROUPS  MISINT.  IT  SO.  IT  STONES  THE 
AAGNITUOE  OP  ENCM  CONNECTION  NNO  SETS  IMP  OTHEN  PENTINENT 


1.0 


VNNINII.KI. 

I  NT t BEN  SUfll, SUM 
INTIBEN  WEIGHT!  V) 

DIMENSION  KCBNUSk  S, ISO ),RPBAUS!  ISOI.ETGAUSl  ISO),ONTCI$(  I,  ISO  », 
urn  III  I 

COnMN/BlKl/WEISHT,  MUGTI  *  ),nOLMT!  IBO),!X!  1 00, 1, 4), NCI  IOOI.KCC 
COnMN/BLKl/ININGI  NO,  SO  I,  IHNTII  SO, 10  I, MW  100  >,IBC<  100  >, ROW  1001, 

1 1 OSN(  1 00  >.  1 0!  1 00,  S  >,  I  NO,  NOBN 

EQUIVALENCE  IXCOAUSI  1,1  >,!HATII  I .  T*  )  ).<  KFGAUSI  I  >,  inNTXI  1,011), 

It  KTBAUS!  t  >,1MATX<  1 ,40  >  >,(  OATCISl  i,  I  ),  IHATI!  1,44  )  ),(  I  PM  I  >, 

11MATI! !,*»>> 

IP  NUMBER  OP  INUCHI  ETHEN  CONNECTIONS  NNC  EVEN,  CONTINUE. 
OTHENHISE  PNINT  SNNON  PtESSNNK  NNO  EXIT. 

JJ*IM/t 

IP! 1GO.EO. t*JJ  >00  TO  4> 

UNITE! 4,41 ) 

41  FORMAT!  ///1M0, NRHENNON  IN  INUCHE  ETHEN  CALCULATION.  CONTINUE.///) 
NETUNM 


01  TENS 
OITENE 
01  TENS 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 
OITENE 


t.O 


41  LI»I6S-IG0*1 
LPsISS 

TEST  INCH  P4IN  OP  BAUCMK  ETHENS  PON  01 TENTI4NV  ETHEN  STNUCTUNE. 
004*  LbLI.LF.I 

PINO  GROUP  NUNIENS  OP  NON-OXVBEN  CONE  ATOMS . 

IORbIPHL) 
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SUN!  «IX««CI,  1,1  l«  I  XI  Ed,  1,1  ) 

SUA**NW(  PCI  )*NUI  KCt  > 

IP!  SUM I . NE . N . ON . Sunt . NE . ( >60  TO  4* 

80UN0ANV  LIGANDS  APE  CANBON  ATOMS  AND  EACH  HAS  A 
CONNECT! VI TV  OP  POUA.  01  TEAT! AAV  GROUP  IS  PAESENT.  SET 
VAAIABLES  ANO  CONTINUE. 
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RCBAUSI  I,  IGS  )«RCi 
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IOTE«IOTC«l 
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OITENE 
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OITENE 
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OITENE 
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OITENE 

OITENE 
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OITENE 
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OS  CONTINUE 
NETUNN 
END 
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SUBROUTINE  EQUAL! KCI00I,ACXD02, *3001, *0002, *ULT|,LF,Rr,maT2,KY, 
UtMhZi  ) 

C  THIS  SUBROUTINE  PROCESSES  »Hf  C  PE  R AT 1 0*  UHfCM  CHECKS  ThC 

C  STRUCTURE  OF  TUO  OR  r.ORf  L  S  5  A'OS  A\0  OETERniNES  WHICH  IS  EQUAL 

C  TO  WHICH  (  IF  A*f >. 

iNtfGEA  SYm<  s  ,.  JVHBOL!  T  >,6A10<  90,001 
INTEGER  WEIGHT! T  I 

INTEGER  PtATXC(H,tGO),PERLIG<Hr139) 

01  PENSION  K>Af  £(  i, 3. 2  >,  i A<  2,l»i,IOK  B,TT5,NVf  IOC  ),HCTI  100), 

IHERI  J.H0l,FXT<  lOl.NOONEI  I00),<ci:3lc  J  ),KCiOO«(  J  l,FASll  H  ),r.R$2l  H  > 
COr.rou/BLK  i/no,nos,Symi,  svr.50L,N;/*Li  t i,GRIO 
C0r.r,0N/0LKf /Us  IOHT,r.JGTl  Tl^OLUt!  1031,  IK  100, S  I). NCI  100),  ICC 
C0rr.0:i/6LKJ/iR|f;Gl  HO- 30  »,  in^Txi  50,10  KKiil  IOO),IIC(  100), ROW  100), 
IIOBRI  100),  16!  100,1).  IRQ, /70fl  A 

COmori/OURN/UCI  00,50  I, NOS!  40,2  ), *31!  40-20  ),  IRC,NONFUS,  IRCTO? 

SOU! VALENCE  (KSAHEI  1,1,1  ),16<  W.t  >>,<  PEA T<C!  1,1  ),N3X!  2,5)  >, 
t(  |A(  |  I,  IOC  Tf ,  #  )  ),(  RfJTI  1,1  >,GRIOC  I,  S3  )),C  1 0X1  1,1  ),0H!0<  J,l  )), 

2<ncv<  I  ),CR  101  1,31) 1,1  NVti  I  ),GR1  C(  I  ,24  )  ),<  HER!  I  ,  I  ),  GR 1 0(  I  ,  IT  )  ), 

J<  KCT,  1 8<  T  ?,•)>.  I  FKTl  I  ),  I  0(  35,2  )  >,  (  PE-UIGI  1,1  ), *3Xt  H2,  1 1  )  ), 

Hir.RSH  I  ),)I8I(  2**  ,  20  )  )« I  r.RSlC  t  ),MII  2H,20  )  ),(  NDQNEI  1  ),  GR  1 01  50,  Tl ) ) 
CI.O  INITIAL  WE  MART  NOQNC  . 

001  Ml  .ICC 
I  *OONEIK)*0 

C2.0  START  EXECUTION  OF  HA  I N  CYCLE  TM»T  CHECKS  THE  STRUCTURES  OF  TWO  < 

C  OR  FORE  LIGANOS  TO  ESTABLISH  AETHER  THEY  ARE  IDENTICAL. 

C  II  INCREFENTS  THE  SETS  OF  ICE'.TICAL  LJOANOS  WHOSE  ATONIC 

C  COFFOSITION  VARY  FRO*  SET  TO  SET. 

DOTS  ll«l,XV 

C  fJT  AND  VH  CONTROL  THE  SETTING  OF  THE  CORE  ATOM  CKCI  AND  KC2  ) 

C  TO  WHICH  THE  LIGANDS  ARC  BCH3ED. 

DOT  3  FJ1*|,N0001 

icmkcioohmi 
Ni*hRuifi*r.R 
U0T3  K.*isNI,N0002 
J2»).N 

KC2*KCX002l  Mil) 

C  JJ  AND  XI  CONTROL  THE  SEWING  OF  THE  TuO  LIGANOS  WHOSE 

C  STRUCTURES  ARE  TO  BE  CC*>A“-ED.  THE  FIRST  CORE  ATOM  OF  THESE 

C  LIGANOS  ARE  K |  ANO  K2,  RESPECT! YEL ». 

00B5  J J* I , LF 
|F( N0002.10.I  )JI»JJ 
IFI IFUNCT.E0.9  >G0  TO  300 
K | >KC TOO l( 2  ) 

_ GO  TO  302 _ _ _ 

300  IFlKSAf  El  Jl.  II,  M. 10.0)00  TO  15 
LGI  *(*ERL  IG(  JJ.XCI  ) 

_ KMPER?«C<LG1,KCI  ) _ _ _ 

302  ICH'.X|:«| 

K I  *  I  * "UL  T|*  J J 
DOTS  KM*  |  ,  KF 
I f ( N0002 . CO . I  )J2*il 
IFI  IfuNCT.fO.O  )G0  TO  30R 
KZ’XCXOOII )) 

_ _ GO  TO  J04i _ 

JOT  IFI  AS VTIi  J2, ||,| ).|0. C IGO  TO  7% 

Lf,2  =  Fc'r.L  Id  KK,«C2  t 

_ l2»FE-lf  KCl  LG2,KC2  ) _ 

304  IWCH  .ir 

IFIf.GONEIKI  I.KE.O.RNO.TJOO’.Tl  t?  I. AC  .0  1G0  TO  II 
C  R I  ANO  R2  HAVE  NOT  04  IN  PROCESSED. 

NOON f I K |  Ml 
IJOONcI  K 2  )«| 

KCIP'KCI 

IC2PSXC2 

ISO*0 

|Cm*X|i«I  _ 


_ Jmi 

IS 


)  IM  III  «l.  I,  I  M  E.  UII2,  I,  I  I.CR.Ml  *1  MC. 
MONl  K2  )  )50  TO  4f 


NY!  K2  I.OR.KON!  «  I  >.N£  . 


ATOMS  fll  ANO  K2  AHf  Inf  *A-1,  A*»f  BONOEO  TO  THE  SAnf  MJMC*  IOuAv 

OF  CORE  ATOMS,  ANO  HAYC  Ml  l»"|  0  Vf  H  ALL  CON1.:  C  M  Y  Ml  I  S .  MuAL 

I0HTM0-JIK1I  1C  »AL 

OUinnlNI  |F  l|  ANO  K >  AA(  |9"CE0  TO  Ih(  S*M  TyP(S  OF  ATOMS.  I  Qu  *L 


56 


16  NOT,  60  TO  61.  OTHEIWIH,  CONTINUE. 

091  6*1 ,101? 

1*1  6  1*111  66, 6*1,1 1 

1  C01T 1 Nul 

eon  j»i,  *CN* 

OOT  I*I,I01T 

16(1X11,5*1,1  I. IQ.  |A(«))G0  TO  It 
«  continue 

00  To  61 
It  I M  6  »*6 
II  C01I11UI 

61  «S9  61  *6f  THE  l*F|.  16  *  (HOLE  6IN0  II  OHIO  ANALYltO, 
TAA1S6E*  TO  IT.  OTxttJlSI,  6110  IH(  NEW  »»LUf»  06  II  *10  II. 
Nar.ILT,  TKOSI  U1660CESSE0  CO*l  *IOnt  WHICH  *61  6010(0  TO  THE 
OtO  II  *10  II  6*16,  6*CH  06  WHICH  II  10CATE0  II  011  0*  TH| 
OTKEA  06  Th(  TWO  Till  L  16*106. 

I6II6U1CT. T.C.OIOO  TO  IT 
I6INVIII  1-1  >11. II. IT 


IIT - 

lii-niT- 


11. 

ii 

imi< <i#t,4 i.hc.ftctt igo  to  ir 

iouai. 

M. 

«CIMC| 

ItUIL 

i*. 

61*1X11,1,61 

1*U»U 

t*. 

to  TO  10 

(Suit 

IT. 

IT 

KCIMRI 

tOUAL 

11. 

Rl'IKXt.t,  II 

(Dual 

11. 

11 

in  |K  K2,2#4  I.M.KC2P  )G0  10  21 

EQUAL  2 

100. 

IC2MKI 

ItUAL 

101. 

U*IX  11.1,61 

EOu*t 

lot 

GO  TO  3 

EQUAL 

101. 

31 

*C2tr*2 

(OUAl  *" 

104. 

*2*1 K *2,2,4  I 

IOUAI 

IOJ. 

SO  10  1 

IOUAL 

104.  C 

II  f.1  II  III  IA61CH  ATOMS .  6110  THE  NEW  II  *10  It. 

IOUAL 

1EITME6  II  106  II  *6(  6110  ATOMS. 

166*116*1 

11066  II  *10  II  IN  101.  Ill  IS  IHI  C0U1TC6  THAT 
16CCI6K1  I  Ml  1C6.UA  06  I6*1CH(1  (NCOuNIIIIO. 

IOKI, IllltO 
10111,116  l>U 
11*1 
11*1 

1I6*NV( 611*1 

*110  HOME  THT6£I1  THI  C60U6  1Un«61  06  THI  CO* I  »tOHl 
Of  II  *10  IT  WHICH  HAVE  TO  IE  CHECKED  60*  EOUILlTY. 

0011  i.*t,1|6 

I6(  11111,1.  »  I. E0.ICI6  ICO  TO  II 
11*11*1 

ip»iii.mi»i»(ii.i,t» _ 

11  I6(  11111,1,4  1.(0. ICIP  SCO  TO  II 
1t-11*| 

10X11,  111  l»  IK  61,1,  6  I _ 

u  coif  HUE 
iijKi.iuirt 
iii(i,ii»i*i 
ICI6*6I 

6110  KM  II  *10  II  *10  6ECTCLI , 

11*101(1,1161 

■  C1I*U 

■  1*191(6, 1161 
00  TO  1 

_ II  l1.:)/0*  II  AK/ll  6110  ITQHIll. _ 

IT  161  IOCI  II  I.ICCI  «1  1. 10.0  ICO  (0  61 

eOIH  II  *10  II  *>(  A  |  l.'S  ATOMS .  CHE  C I  THE  16  lounll*. 
t*U  f  01  ft  *  I  «CI  ,1(16,6016, 1  1,11,  1  11, 66 1  111,  IT  Old  I 

I6ii6ii.*,i.(o.oir.o  io  it 

161  1 15  .  E  0  .  (  •'<  3  ,  *  CT  I  ICO  10  n _ _ _ 

16  ICI6*I0I(  1,11)1 
IC16* I  Oil  I. Ill  I 

■  1*10X1, 111! 


|1  666  rJ*  J, 01*16 


155.  K2*I0V< 4# ISB  9 

155.  10  10  )  .  # 

15*.  C  H  RNQ  Kt  Mt  TCRniNAL  ATQnS. 


fQUAL 

EQUAL 

fOUAL 


1 5  F , 
I  A I  , 

m. 
no. 
in . 


ISA. 

nr. 

151. 

155. 

no. 

III. 


Jf  imSl.6V.0l60  TO  55  !?Hfh 

!Vl  JFUNCT .NE.O )C0  VO  55  EOUAL 

c  ali  atoms  Of  tmi  two  test  uc»*os  h»ve  been  mocESSto.  ioual 

t  IAT T£A  A.il  EOd»L.  FAIAf  r.-SS<5E.  STOHE  SrrnCfAr  0«tr  A‘iO  E5Uf L 

.  .1*0  *fu  lin.’io  .AIA  CQPSINATIft*  TO  T»ST. _ EOU«l. 


152.  1.0  IH  «CI  .*£  .  «C2  ICO  TO  AS 

IJJ.  WAITE!A.AO»ICM*«l,ICK;j<?,«CI  . 

|)5,  .0  fORMAT!//  IHO.SSI.tSHCOr.RlCi  L1GAN0S,  IA.SH  ANO.IA.IAM  Or  CORE  AT 

IS*.  IQM.lA.ItH  RRE  EQUAL. ) _ 


'3UAL 

EQUAL 

EQUAL 

EQUAL 


AJ  CALL  *AP.ET*e«OOITI  I.ICM\-*l,ICKK«l,BASI«JII,flASH  JE»» 
60  TO  M  _ 


EQUAL 

equal 


AS  WRITEI  A, AT  IICHMI,  ICHKA2.KCI  ,ACl  „  .... 

AT  FORMAT!  //  1*10,301,  l5HC0r.Fl.il  1 1  GAfVOS,  M.SH  ANO, IA, ISM  Of  CORE  AT 
TOMS, IA.SH  AfiO.IA.WH  ARE  EQUAL.  » 

GO  TO  Al  . _ _ _ 


EQUAL 

EQUAL 

EQUAL 

equal 


Aj-J 


42.  At  IrUNCT.l 

41.  A 1  .KCIOOII  1  > 

I4A.  VHITEI  4, SI 1 1 DCI K I  ),«l 

I4S.  SI  FORMAT!//  1H0, AAK.AHAING, IA.2IH 

144.  MH.I 

14?  60  TO  V9 

141*  e  MOT  ALL  BRANCH  ATOnS  IN  LIG*NP  PAIR  HAVE  BEEN  PROCESSCO, 


155. 

151. 

54. 

1  5  F . 

in. 
15  47 
200 . 
201. 

2  01. 
10). 
2  05. 
205. 
204. 
2  0  F . 
201. 

Of. 

10. 

11. 

12. 


211. 


IS  SYMMETRICAL  ABOUT  ATOM, 15, 


cooal 

C0UAL 

C0UAL 

EQUAL 

equal 

equal 

EO'JAL 


145.  S5  nit*KfJt<  I, ISB  > 

If?!  c  Negative  to  indicate  chains  mi  ano  ni*  or  branch 

IF2.  C  ISB  HAVE  BEEN  FOUND  EQUAL. 

|  V|.  IDKftll.lSB  >*~IAB5<  I  OK  nil,  ISB  )) 

IF5.  I0TCHI2,  ISB  >s-|A3S<  10X<nx2,!SB>) 

iis.  «crir(  t#  Isa  t,  iso  >♦! 

F4.  c  l*Hfty[  AIL  CHAINS  OF  BRANCH  ISB  IN  LICAN0  ONE  BEEN  CHECKED 

)F$.  C  IF  NOT,  GO  TO  43. 

IF5.  IFflNTt I.SSBI.LE . NV< KX  » lf»0  TO  *3 

HO.  C  YES.  ARC  I HLRf  OHANCHES  REMAINING  TO  BE  TESTEO 

lSi:  e  ifi  ijb.ic.i  igo^to  new  branch  ano  recycle  branch  test. 

113.  I  SB* I SB-l 

i!J’.  c  *°  T°  WO.  FINO  KI  OF  NEW  CHAIN  SEGMENT  ANO  RESET  INT  FOR 

isb.  e  ligand  two. _ 


EQUAL 

EQUAL 

eoual 

equal 

EOUAL 

EQUAL 

EOUAL 

EOUAL 

CO'JAL 

EOUAL 

EOUAL 

EQUAL 

EQUAL 

EOUAL 

EQUAL 

EQUAL 

EQUAL 

EQUAL 


43—1 


III.  43  KCIP* 1 0X1  I,  ISB  > 

III.  RC2P*I0K  5.  ISB  > 

185.  ni|*KNfl I.1SB  I 

150.  K|:JOUnx|,  ISB  > 

51.  BNflV.lSBlsl 

152.  GO  TO  VI 

53.  C  RESIT  RCIP,  KC2P,  ANO  K| 


EQUAL 

fOUAL 

EQUAL 

equal 

EQUAL 

EQUAL 

EQUAL 


F  I  — I 


45  KCIP*IOK  1 , I  S3  > 

KC2PH0M  5.  ISB  I 
MIsKNH  I.ISB  I 
1 1  *  ion  nil ,  I  S3  ) 

C  _ H  CRETE  NT  KNT  FOR  i  1C  AND  TWO. 


If 


55  A  Nil  2 ,  |  S3  laKNM  2,  ISB  H  I 
■  l£|OI<  5, |S3 ‘ 

HAVE  ALL  CHAINS  OF  BAV.CM  ISB  IN  LlflANO  T»'0  BEEN 
CtiCCKfO  RCAINST  iMc  SPECIFIED  CHAIN  OF  LlGtlNO  ONE 
NOT,  GO  TO  FI. 

IFI  *NM  t.  ISB  l.tf.NYf  KI  »  IGO  TO  FI 

vis.  are  there  iRf./.cms  remaining  to  be  tested  if 

401  CO  10  FS  VO  FIND  NEU  lICAf.O  FAIR  COMBINAflOY  TO 
VIST. 

IFI ISB.iE  LEW  BRANCH  ANO  RECYCLE  BRANCH  TEST. 


I  SO- 3  SC - 1 

co  ro  4i 


NO.  FIND  h'U  Kt. 


II  nilAKNII  i,  ISB 1*5 


equal 
EOUAL 
COURT. 
EOUAl 
EQUAL 
EQUAL 
EQUAL 
fQUAL 
f  UUAI 
EQUAL 
EQUAL 
EQUAL 
EQUAL 

eoual 

EOUAL 

EQUAL 

COual 

EOUAL 

joun_ 

equal"" 


fi  H 


ff  ~ 


01*34 


if  *h  n  (.*1*11 


SO 


Irrrr  rrrrrn 


M. 

?A, 

If. 

ft. 

If. 

IFl  l*C<«S>.C9.t)G0  TO  si 

N1A*N|A»| 

1 0 1  A<  N  |  A  *  | ,  |$|A)«|i(  RIA.I.I  ) 

I0IAP<N|A>«|I(  l([A,C,A> 

CO  TO  13 

ia«H* 

■GUALA 

IOUALR 

(OUALA 

(OUALA 

"1 

II. 

21  N 1 f *N1 ( *  1 

(OUALA 

ft. 

IOIUMCM,  1  SRC  1»S*I  IIP, 1.4) 

(OUA*  A 

AO. 

23  !44  W<A2R,«,4>.K0.tC2''A  iGG  TO  17 

(OUFLA 

— 

•». 

IS*! II  K2A.I.4  ) 

(OUALA 

12. 

1  Ft  I4C<  XI  I.  10.0100  TO  21 

IOUALR 

25  “1 

•  ). 

N2R*N2A«| 

IOUALR 

■ 

•  A. 

I0IA( N  2  N  ♦  1 , ISfA  ) * 1 1< K2A.K.4  > 

IOUALR 

■ 

as. 

GO  TO  IT 

(OUALA 

SB 

•  4. 

25  N2(*N2E  *  1 

(OUALA 

- 

•f. 

IOM  N2E  +  5,  IS3C  is  1  VC  K2A,K,4> 

(OU*LA 

II. 

<r  CONTINUE 

(OUALA 

4 

at. 

C4 

.*  ant  the  Nunsr*  or  «.ns  hnd  hoi-him  U6»HD5  the  Sort  foh  .Tons 

(OUALA 

to. 

c 

KIA  ANO  R2A 

(OUALA 

ti. 

■  PCNIA.C0.R2A.AN0.NK.r0. NIC  )G0  TO  Jt 

(OUALA 

Jl-i 

52. 

c 

NO.  IF  SlKGlt  AtNS  IS  BC1N3  ICSTID.  ACTUAN.  OTHERWISE, 

(OUALA 

1 3 . 

c 

ACOUCC  SOOSc^KTS  ANO  T  A  ASST  IA  . 

IOUALR 

5A. 

m  IFUNCT . WE . 0  >A£TUHN 

IAUHLA 

tt. 

ISBA*!SOA~l 

(OUALA 

t4 . 

IOUALR 

tr. 

to  TO  4  7 

IOUALR 

ta. 

c 

VIS.  ARE  KIA  ANO  K2A  lOMOEO  TO  NON-RING  LlCANOS 

(OUALA 

tt. 

31  IF<  NIC  .GT  .0  >G0  TO  33 

(OUALA 

JT=? 

too. 

c 

NO.  IF  S I f'GLC  RING  IS  OEING  TESTED  AWO  NO  ?S  FAESCNT. 

(EQUAL  A 

101. 

c 

RETURN.  OTHERWISE,  REDUCE  SUBSCRIPT  ANO  T k.  AN  S r  E  R  . 

(OUALA 

102. 

1  FI  |FU..'CT.NE.O.Ar.O.NC(  KIA  ).EQ.2.AN0.  Ill  KIA.).  1  1 .  EO  .  i  )A£  TuAN 

(OUALA 

103. 

ISfiC=lSOE-| 

(OUALA 

IOA. 

€0  TO  35 

(OUALA 

: 

105. 

c 

VES.  IF  SITICK  AIMS  IS  BEING  TESTEO,  DC  TE  APlI  NE  IF  BONO  HAS 

(OUALA 

104. 

c 

TWOFOLD  SYVETRV. 

(OUALA 

iOf. 

33  IF!  IFu  .CC.EO.O  iGO  TO  3i 

(OUALA 

tH 

iOl. 

CALL  LIISA!U  Kit..  I0*<  2,  1  S3F  >,  L  1 NE  ,  K$Y*  | 

(OUALA 

lot. 

IFI  LINE  .NE.  1  .ANO.KSvn.r.E  .  2  lAETf^N 

(OUALA 

no. 

c 

FINISH  SET  ING  IDENTIFIERS  ASSOCIATED  UlTH  THE  NGN-AING 

(OUALA 

Ill . 

c 

UGANOS. 

(OUALA 

111. 

Jt  I0*(  1,1  SCE  >=K  1  A 

(OUALA 

* 

111. 

10*1  5.  ISOE  >-F 2 A 

(OUALA 

!IA. 

KNTC  1,  ISBC  >  =  2 

COUALft 

1*5. 

KNVI  2,  ISBE  )-2 

(OUALA 

114. 

NVI  KIA  |sfUC*l 

(Or ala 

nr. 

NV(  K  2  A  |rNV(  KIA  > 

(OUALA 

114. 

c 

TO  MGU  HA  NY  OTHER  AIN5  ATOM'S  A  A  £  A  |  NG  A*0.1S  KIA  ANO  K  2A 

(OUALA 

Ilf. 

•ONDCO 

(OUALA 

20. 
121 
1 22. 
2). 
12*. 
125. 
121. 
2f, 
121. 
2*. 
!  10 . 


35  IFIN1A.GT.  I  »C0  TO  25 

O'.c  IN  AOO!TION  *0  FAAENT  KINO  ATO*.  K|A  AND  K2R  ARE  CHAIN 
RING  A’OriS.  MNO  NEW  K  I  A  t' iO  K  2A . 

KCIP.K-*  1A 

Ain^!0«AI 2. I $0 A  1 
ICIKfl.’KIH 
CAslOlM 4,  I  SBA  ) 

IS0ft*1SAA-f 
GO  TO  11 

?**o  c a  rope  in  aooition  to  Amur  ring  aton.  kir  ano  *2A 

ARtg  CftrtNCM  A  I  f.*  ATO^S.  H',3  ».;U  A  I A  K*.0  IJ* 


11.  If  CAIi  0>ni^l  NIA.  JAOO,  JOIRO  1 

)2.  iliIM.sm 

1).  CfsIAOOINIM 

)A.  *  1  I  VO  1 1  CANO  or  ATCn  RIA  THAT  IS  AT  OA  ».£AA  BOND 

35.  £  OIRCCMO  NIO. 

34.  |F<  IQ1AQI  Kf  l-W  0  Hi  .  N5.  At  _ _  _ 


COUAI.A 

(OUALA 

fOUAlA 

fHUALR 

IQUAiA 

(OUALA 

f Qu AIR 

tOVAlR 

IOUALR 

COUAtA 

tOU.UA 

COUAi R* 

IOUAIA 

(OUALA 

•  OUALA 

IOUALR 

f  OUALA 


tr=y 


ai  n*=Ri 

_ CO  TO  53 

Af  IllsAf 
CO  TO  IS 


(OUALA 

fount 


LT 


At  IM  loinoi  *1  I.GC  .010  ICO  TO  M 


IOUAIA 

(OUALA 

""(  OUOlR 


Ip’ 


ir  Apt  rs  I. 02*34 


sa  ijtFiM 

*l«lkOOl*S» 

IF!  IQIAOmi  KtT.NID  >G0  TP  SI _ 

»  «*IOlAl  2. ISBK  ) 

lOiAt  2,  I  56A  >*10IA<ftl*I.ISBR> 

IO’R<*X«|. I$SR  >** 

SET  IDENTIFIERS  ASSOCIATED  WITH  RING  LIGANDS  AN’O  £  1  NO 
NEW  KIR  AND  K2R. 

Rt  *0 

IMKIR.CO.KI  1*1*1 
hVAt  K|A  >*N|RM-Rl 
NVACK2A  >=NVR( KIR) 

KNTRC !, I5BR  1*1 
INTfiC 2. ISSR  1*2 

]*< I  SOW . C  3 . I >XNTR<2,!$BR)**2SET 

!DIR(  I.  IS3»  I*  K  l  R 

10iR<  5, 1 5QR  l*K2R 

KCIRRZK1R 

|]R*tOlRf  2.ISBR) 

KC2RRJK2R 
FMaXNTRI  2.1SBR  !•% 

K2R»I0*R<  MJSBM _ 

*/  IF!  IFUNCT. CO. 0.0ft. KIR. NZ.K2R ISO  TO  IS 

SINGLE  RING  IS  BUNG  TESTS')  ANO  KIR  EQUALS  KZR. 

DETERMINE  IF  FINAL  LIGANO  TO  BE  TESTfO  WHICH  IS  BONDED 

TO  the  ring  has  tuofolo  symmetry. 

IFC  NCI  KIR  I.CO.  2  IG0  TO  42 
DO  5  8  l*|,l 

IS*|I( K I R, K , 4  ) 

IFC  IBC<  *S  I.IQ.O  ICO  TO  ST 

SB  CONTINUE _ _ 

ST  CALL  Uf.;6S^K|RfK5.l|NE,KS^ni 

1FCL1NE.NS ■ I . a.O.KSYU.NL  2  )R£  TURN _ 

""*4  0  K.1INGI*! 

KCV^I 

r EfM  i,KCV  I*  ISB _ _ _ _ 

41  PCTuRN _ _ 

12  IM  IIHIA,  A  ,  |  )-B  >40, 41 , 40 _ _ _ 

43  JOOf.CC  KCIFR)*! 

JOUNEI  KC2MMI 

KTT*KTf*l 

KCCHI l.KfT  ISKCIFR 

KCCRI  2.KTT  )sKC2f»R 

.0  ARE  THE  IHJ  KIR  AND  K2R  ATOnS  EQUAL  TO  THE  STARTING  VALUES 
Kl  AND  K  2,  RESPECTIVELY  IF  SO.  GO  TO  BS  AND  CHANGE  IB*. 
IFIKIR.EO.KI .ANO.K2R.E0.F2  ICO  TO  BS 
CO  TOl 4S.8T  1,181 

.0  _ TRANSFER  POINT  WHEN  181*1. _ _ _ 

~4S  |M  JCO.r*  VVr  l.fQ.O  IGO  TO  IIS 

K2R  MAS  (KEN  IfSTfO  PPEVIOUSIV.  ARE  t  Hf  RE  ANY  BRANCH  RING 
ATOMS  LEFT  10  TEST  IF  NOT,  CO  TO  13^ _ 

•  r  im  isg’r  if  .o  »se  to  n 

DISENGAGE  INTERVENING  chain  ATOMS!  IF  ANY).  FIND  NEW  K  ?  A  (AND 
KIR  IF  At.  TIRE  0  I . 

IF(  KT  T  .OT  .0  1C  All  OtLE  TEI  IO«ni  |#  ISOR  I,  ISBC#KTT  > 

KCIPO.'IOini  \  ,  ISGR  > 

IC?PA*lOinc  s, ISO* J 
DCKNTn  i ,  ;s5*  i 
K|R*IDXRI  Of, isos  I 
KNtftl  2f  I  SCR  l  =  *  flTRI  r#|S8R  !♦! 
ru*  I0i*»n,  ISC*  > 

!F<Kflini2#  IS'R  I.GT.NVRiniDGO  TO  7| 

F»l  =  KNTfl|  2, 1  S'.'.T  IM 

«?R3|0n<liff  ISBRI 
CO  TO  M 

ALL  1 1  GANGS  Of  tnr.'CM  ISO*  IN  RING  B  HAVE  BEEN  TESTED,  AH 

_  Ik  fflf  AN  it  J.  ft.v.T  Mf  S  10  T  f_ST _ _  _ _ 

n  in  i scT.tf! i  igoT  10  t s 

VIS.  F  f NO  NEW  BRANCH  SUBSCRIPT  ANO  RETURN  TO  4T. 


II  AAR  n  0.01-34 


I sin* i sin-1 

10  TO  If _ 

ii  Uifun kcy  *.to. i  >so  to  ioj 

C  NO.  AEPIAT  INTIAf  TIS?  CYCLE,  SCANNING  NINO  »  IN  THE 

€  acvcasc  direction. 

nnmcvi*! 

60  TO  I 

C  MSttf  |  Al  ANN  CQ  TQ  1|  .  _ _ 

•f  m«t 
60  TO  It 

CO. I  TAANS6E  A  60INT  WM|N  !tl*t. 

Cl. I  NAVI  Arons  Kin  OA/AP.O  kin  seen  ttstio  PAIVIOuSLY  16  NOT. 

c _ so  to  m. _ __ 

•i  u< joor.KKin >.<o.  i  ioo  to  ii 
ire  jooncikia  i.co.o  >oo  to  tit 

_  c _ ns.  mo  f.eu  Kin. _ 

“  II  INTAI  I  .  ISON  isnrjTAC  t(  iSON  )•! 
ni*ioin< i.tsini 

C  t'AYC  AIL  LIGANOS  06  SAANCN  ISSN  |N  n  I  NS  A  OICN  »I$?EO 

C  16  NOT.  GO  TO  II. 

IMKNfAl  i4IS6*).LE.NvA(nf))GO  TO  II 
6  AA(  THE A E  ANY  NONE  AAANCHIS  TO  TEST 

tr« ism. is. » >go  to  it 

C  VIS.  6  l  NO  NfU  |A APjCM  SUISCAIFT  AND  ACTUAN  TO  II. 

IS6A*tSSn-l 
90  TO  It 

C  NO.  lACKKOr.'E  STAUCTUA*  06  IOTM  DINGS  IS  IDENTICAL.  SET 

C _ ACATINCNT  AMAVS  AND  HIT  6* J.N  A3UMNE.  _ 

It  8A|NGl*i 
r.Eft<  i.kcy  >“K  i 
6iSA<l,*CV>2Kt 

MEAI J# KCY >=!$» 

Iff  ISOE.EO. ISO  RETURN 
I 1*150*1 

0013  A  =  K  I , I SBE 

NT  =  ion  l.K  ) 

6»cy< nr  >  =  KCV 
AlilOMf.l) 
r.Cv<m  )SKCY 
IJ  CONTINUE 
aetuhn 

C _ SET  K I A  AND  6  1?.Q  NEK  «tA  TO  TEST  (  jf  ANY). _ 

II  KClPOilOIflt I , ISDA  I 
KC26R=I0IA<  5, I  S5R > 
flfxKNMI  I,  ISM  ) 

(iftsloxAcni,  ism  > 

>Nrn<  i,  ism  >  =  t _ 

ioi  rn*tmA(  t, ;  sca 

Vtn*IOXA( n«, isrA  > 

161  JOO.'.CIKt*  >.E3.0  ICO  TO  IIS 
■  MINI  t,  IS09  >slf(Vni  *,ISM  >♦! 

NKi  IDim  S,  ISON  | 

I6i  rrjifti  i,  ism  >.ir  . 6iy m  nco  to  ioi 

C  NO  TORE  NEW  Ita  A rpns  AVAILABLE. _ 

103  r<  T<  * C Y  1  =  0 
*CVMCY-| 

Iflrdl  K I  l.fO.O  >R|  TURN 

C  AESET  AIL  VALUES  ASSOCIATED  W|t*  KCY  TO  THE  I A  INITIAL 

C  VALUES  A*.0  AElUAN. 

ooior  isi.ccc 

in  r.cvt  K  >.li  ,  KCY  >G0  TO  IOI 

NlrrCVT  t  I 

All! ni  >:0 

_ f.Cvl  a  >-J> _ _ _ 

tor  cc  j Mr.’ui 

AITU'iN 

cio.o  c»:ck  similarity  fMin  A  Tens  <m  asp  t?« _ _ 

iis  in  1 1<  i  n.  i.Fi.i Th  at-i.  V,  i  i.oaTnci  hi  a  i.m  .  k.c<  km  i,oa.»om  k  ia  >. 

INS.IOM At*  > 160  TO  4  6 

r  ATOMS  K  |  A  A'.o  Ktn  AAf  TMf  S f i M f  #  ARE  SO'iOlO  10  THE  SAME  NUMf  A 


f  O'JALA 
COUALA  l| 
IOUALN 

eouala 

EOUALA 


COUALA 

eouala 

EOUALA 
EOUALA 

eouala 
eouala 
eouala  It 

COUALA 

EOUALA 

EOUALA 

eouala 

EOUALA 


LA 

LA 

LA 

LA 

LA 

LA 

LA  IOI—* 


II  AM  II  I. fl-IS 


«  II  HI  UMH  III  lit  rH||lfi|,a  IIMIfilt. 


M  It 

M  T>  M 


•  Cl  II  I  Cl  III*, 

mttidti »-« >vi.  ri.iu 

iiimnim  m  mi,  h  h  n. 

ut  mi  *  titHtnmtf  »  mi  -  <»■•>.  hi  ii  i  mt«  i 

f«  Hi*  I  ■  <  •  ci ,  i .  a  t 

miMMHI,(l.(.IN.IIini,llH.CI.MN  II  II 

MM  IfMIIM  IV  a. 

call  ki«Hiiti,ai,uatui,ii«Mm 

HI<H<II<IM  t  » 

Ilf  Ml 

an  Ml  a  (IMItmiM  M  T t*  .  It  INI  T Ml  illicit  ill 

«nii,  ii  ti  n. 

U  i  it  met «ti  i ,  ati  »••  i»  i » ,  1 1 , « i » 

if  hi  ii  *>  mm  *m,  H  ti  n. 
is  i  n  i  ii  act .  i ,  i »  it  im  ti  ?i 

act  it  •  iifaicii  •?  ip.  I#  fat  mu  it  tail!  ale  VM  lane, 
1 1 t  icaicaria.  ivmimiii  aifHa. 

_ m_ll|i>UM||  i  n,nn<n* _ _ 


Tl  tt  I 

Tm«  oiutnl  aat  *a  f*ift  4<imH  it  atm*  in  IT|  LiulctT  Caila. 
III!  Taj  tliTaii  atiwt,  •  tl  mi  «c>,  ii  tm  imiut  fall. 


•  I  aci*MCi  ill*  I 

•  HI  Ilf  I 

I  r*  HCi  aei  »•  l  tc<  act  >.  II  ■  •  »M  Tl  il 

M'itiCiaci»*itctaca».«i.«>atTHar 

th  caiTiai  iimi.  Ml  mi  act,  aat  nil  anat.  tmmmi  Tl 

a  I  It  IfMIIM  TUT  i|  IT  |  It . 

Call  |  >mmi  aei ,  all  ICI 

atT  in 

_ _ m  ill  act  HI  .IT  mi  aTIPt,  III  Tllll  TH  Mill  Miamu 

a«  miiiKi.u  ».  it.  i  ai  aei,  i ,  I  mi  it  vac 

vlt.  a  ( i  ( f  not  i  •  at  m  #!•(■!  aflat  ti  la  aaiaa,  if 

11(1111(1,1,  ai.  •«.  act  ICiii  till  Tl  CCI  .a  Cl, I  » 

III  I  il  ICI,  l  .  a  i  a«  •  Cl  Kill  I  n  f  T  <  «CI,  •  Cl ,  •  > 

ail  ciiiacn  ilTiit  ii  act  ait  act  tmi  tan 
in  jaaiaci  i.ii.  jin  a  ca  mi  tt  ;if 

*i».  lit  iliac  awa  cia«  li7a  mb  aei  aai  act  ciiTilitl 
la  nit  ••  l  it  it  at,  ■  (»*■(,  an  Milan  iiTl  Tai  tt»’iiaav 

•  a  i •••  I 

• l  i • I , • 

IT  |  iiTl  J  »*attT  ill  J,  ill  I 

it  i  am  j  Mitii  iii  j,  act  i 

•T  »  il  J  »*ITI  iiTl  J  I 
il  lt|lli  talTiaiTIJ) 
nil  ;*i.« 

•  Cl  iiTl  j  >  *  •  tt  »*l(  l,i(l  » 

it  acum  i  laiCtlPfl  i,MI  I 

•lit  J‘l,l 
Miam  t  i>ae  t  a  an  i,  a  ci  I 
il  illam  J  Malt  iN|t  j, act  t 

lift  mvil  if  it  i  t  at  rta  an  ••■  ret  n  it  i  •  an  itii, 
iltffCTMrccv,  ••  cull  at  tmi  uifiii  iicmt  aei  m 
•Cl.  if  aaitciT. 

•mi  j*i.i 

IflitiiiTi  i »  Ml. act  id  Tl  «• 

■  •■III  iiTl  M  » 

IT  >  H  Ml  t»|T  I  ||  Ml  ft 

ii  if  i  itntTi  f  i.  ii.af  I  im  Tl  ill 

■  ••MlaiTi  i*a  i 
■flai  ai  (••Tiii  a  i-i 


WP'1 


I  *  Ml 


F  I  HO 


1  t . 

SUBROUTINE  F  1  40  (  A  C,  X  ,  ) 

F  1  NO 

2  . 

c 

this  subroutine  determines  whether  the  first  ATOM  TO  IE 

FI  NO 

1  . 

C 

INDEXED  IS  «  CORE  AT  0  FI  OR  AH  UNIVALENT  ATOM.  IF  T  H(  LATTER,  IT 

F  1  NO 

4  . 

C 

DETERMINES  THE  LOCATION  OF  ONE  OF  THE  CORE  ATOMS  BONDED  TO 

f  1  NO 

9  . 

C 

THIS  WON-CORE  AND  FIRST  t  NOE  I E  D  ATOM.  THE  DATA  FOR  THIS  NON- 

F  1  ND 

4  . 

C 

CORE  ATOM  ARE  STORED  IN  ARRAY  II. 

F  1  ND 

P  . 

INlEtf*  Sfru  II.SVIIIIIM'  1,  tKIOIIt.lt) 

FI  ND 

1  . 

I  NT  £  6E  R  WEI  GMTt  V  ) 

FI  ND 

♦  . 

COnnON/tlKI/OO,  NOS.Svni.lVRtOi,  *tv*L(t  >,  ttio 

FI  NO 

1  0  . 

COMMON  /  ALX2/WC!  GMT  ,  MW  6T  <  t  >,  nO  LWT(  1  04  >,  |  *  <  1  00,  9,  4  »,  NEC  100  >,  A  CC 

F  1  ND 

1  1  . 

Cl 

0 

FIND  NUMOER  OF  L I  6  AMDS t  MF  >  BONDED  TO  INDEXED  ATOM.  HO W  MANY 

F  1  NO 

1  1  . 

C 

are  there 

F  1  ND 

1  3  . 

CKtt  N  UBIEt (  NUIK. MX, K.  L.AK.RI.  LI,  >0,  l  D  ,  J  1  ,  J  t  ) 

F  1  NO 

1  4. 

I  n  MR- 1  13,7,9 

F  I  ND 

1  1 . 

C 

F  1  N  9 

1  4  . 

3 

WR 1  TEC  4,  9  >*,  L 

FI  ND 

1  T  . 

9 

EOKBKTl//  INt,  S»A, 2 KHEKKOK  -  ISOLATED  170a  11,1  1  H,  ,  I  t,  1  <•  C»S 

F  1  ND 

1  •  . 

IE  T  ER  MI  NAT  ED .  ) 

F  t  NO 

1  4  . 

1  E  R  A  ■  1 

F  1  NO 

I  0  . 

RET  URN 

F  1  NO 

2  1  . 

c 

ONE  LI  CANO  -  INDEXED  ATOM  IS  NOT  COAC  ATOM.  FIND  CORE  AT  0  FI . 

F  1  NO 

22  . 

c 

STORE  DATA  OF  INDEXEO  ATOM  IN  IX  ARAAY  IN  LOCATION 

F  1  ND 

2  3  . 

c 

ASS  I  ONE  D  TO  A  LI  BAND. 

f  I  ND 

2  0  . 

7 

I  It  ■  C,  I  ,  1  )«Ft 

F  J  ND 

29  . 

1  Xt  *C,  2 . 2  >•* 

F  I  NO 

2  4  . 

lit  AC, 2, 3  >  ■  L 

F  1  NO 

2  7. 

c 

FIND  BOND  T  V  F  |  AND  LOCATION  OF  SYMBOL  OF  CORE  UGANO 

F  1  ND 

2  •  . 

c 

BO  NDEO  TO  1  NDE  BED  ATOM. 

F  1  NO 

2  *  . 

CALL  1 0  NO (  *  1 ,  LB,  ID,  LD,JI,  if,  1  It  AC, 2, 9  ),  IEAR  1 

F  1  NC 

10 

1  Ft  1  ERR  .  E«  .  1  IRET  UR  N 

F  1  NO 

3  1  . 

c 

1  DENT  IFV  SYMBOL. 

f  1  ND 

12  . 

CALL  I  DE NTt  Nl, A  1,  LI,  M,  I  ERR  > 

F  1  ND 

33  . 

IFfllRR.EO.l  )R  E  T  URN 

FI  NO 

3  4. 

c 

COMPUTE  BOND  OIRCCTION  FROM  CORE  ATOM  TO  INDCIEO  ATOM  AND 

F  I  NO 

If 

c 

STORE . 

F  1  ND 

3  4  . 

N2  •  N  1  ♦  4 

F  1  NO 

3  ? 

IFINI.SI.I  )NZ*Nl-# 

F  !  ND 

It 

I  It  R  C,  2  ,  4  M  N2 

F  1  NO 

It. 

c 

SET  CODKDt  NATES  0  9  COM  KtfiR,  BK  ,  MI  NUB- 

r  1  NO 

4fl  . 

MU 

FI  NO 

41  . 

tUI 

7  1  WO 

42  . 

MR  «3 

F  I  ND 

43  . 

GO  TO  11 

»  1  ND 

4  4 

c 

Two  LIGANDS  -  140(1(0  ATOM  IS  COR(  ATOM.  S  4  T  nR  A40  NUM. 

f  I  ND 

4  9  . 

t 

MR  ■  f 

f  I  NO 

44  . 

1  1 

NUM*  Nl 

f  1  Np 

4  1  . 

RET  URN 

r  i  no 

49  . 

(NO 

F  !  NO 

f I  I  lt)l 


70 


3  !  C* I  C+ 1  fusion 

IWITIRLIIf  CP  UNT  ER  T  MOT  DEFINES  T  H|  NUfllt*  0r  R  I  k  CS  IN  Sit  1C.  FUSION 


*  fc*V»0  fusion 

THU  CVCLC  SCI.CCTS  THC  MNi  SCt(S>.  f  US  I  0  N 

00  T  L*  l  ,  I  R  C  fusion 

Iff  J  S  C  AM  LI.  CO  .  0  190  TO  •  fUSIOn 

7  continue  fusion 

no  n out  nine  sets  arc  present.  finhik  variailes.  uminmc  fusion 
AAjOF  CYCLE  AND  IS1T.  f  US  1  0 N 

ic*;c-i  fusion 

no  RONK  I  )•!  C  f  US  I  0  N 

no  Nf  us  »!  R  C- NO!  f  fusion 

!A  CTOT  *NONf  US»N0A0«i<  I  )  f  US  I  0  n 

R  l  T  UR  M  fusion 

more  ring  components  are  present.  ring  i  is  silectio  as  test  fuS.on 

COMPONENT.  This  IS  ALSO  INOICATIO  GY  SETTING  SCAN  INOICATOR  FUSION 
VAR  I  A  |  i  c .  FUSION 


G  A  V  •  R  V  ♦  1 

F  US  1  ON 

a o  n •  4  iv,  i  c  i«l 

F  US  1  ON 

JS  CRM  L  )■! 

• 

F  US  1  0  N 

AS  UG*I 

F  US  1  0  N 

CF  . 

this  cycle  finos  those  ring  components 

(IF  ANVI  PRESENT  IN 

f  US  1  ON 

C 

SIT  1C. 

F  US  1  0  N 

ii  (imv  f  us  I  o  n 

con  : -i,  irc  fusion 

WAS  RING  J  SCANNED  PREVIOUS!.*  FUSION 

If  JS  C  A  N (  J  )  NOT  COUAL  TO  EERO,  RING  J  S  CANNED  PREVIOUSLY,  f US  I  0 N 

I  GNOR I  J  .  F  US  I  0  N 

I  r<  IS  CANT  J  >.  N(  .  0  >G0  TO  If  FUSION 

RING  J  NOT  SCANNEO  PREVIOUSLY,  f  US  I  0 M 

« r  is  t  fusion 

JF*IR|  NGI  J  ,  I  )  *  I  F  USION 

CEMRnINf  WHETHER  RING  J  IS  FUSED  TO  0Th(R  RINGS  «  IN  SIT  1C.  FUSION 
00  I  1  «  ■  1  ,  «T  FUSION 

Nun*#  FUSION 

I  ■ A  *f  0  nil  ■ ,  I  C  I  F  US  I  0  N 

Af  «IR|  NOT  IR«,  I  >♦!  F  uS  I  ON 

oo  rings  j  a  4  o  i  a  *  have  atoms  in  connON  fusion 

oo  1 1  j  j  *t ,  jf  fusion 

oo  i  i  a  «  *i  ,  cf  fusion 

;f  not,  go  to  u.  fusion 

1  7  I  1  R  I  NCI  I  A  A  ,  M  >  Nf  I  A  I  N  G I  J  ,  J  J  >  I  GO  TO  It  FUSION 

VIS  -  RINGS  J  ANQ  J  A  A  Ai  g  F  US  I  0  InCAfHtnT  COUNTER  AND  FUSION 

STOAf  fuSEO  ATOMS  IN  AOnnON.  FUSION 

nun*  nun*  i  fusion 


vrTnvv imapr**'  ■«»»PW^WPVr  ^^dWWWlWflfW 


r i  fi  oi-if 


HOWNOM  KSUI,  *(UffO,  I  O'lm^Gl  |M,  K  K  J 


13  CONTI NUC 

MOW  MANY  KTflflS  DO  THEY  HAVE  IN  COMMON 
Zf  AO  ,  IF  NUM  EQUALS  ZERO . 

I  F<  NUM,  Efl  .  L‘  >  SO  TO  If 

RINGS  J  AND  I  R  K  HAVE  TWO  OR  WORE  ATOMS  IN  COnnON.  STORE 

this  numiea  and  the  two  i.d.  ring  numbers  in  rommon. 
INCREMENT  COUNTER  ksui  and  htcst. 

LU  MHO  N(  R5  U  6 ,  I,  I  C  )  *  *  A  K 
K  Q  M  MO  N(  RS  U I ,  1,  I  C  )  *  J 

KonnoNt  if  s  ut,  9 , «  c  >«nu* 

RS  UI«RS  U»*t 
KTCST*KYE5T*l 


1C  SET.  STORE  I . 


FUSION 
FUSION 
F  US  I  0  H 
F  US  I  0  N 
.  STORE  F US  ION 
MON.  FUSION 

F  US  I  0  N 
F  US  I  ON 
F  US  I  ON 
F  US  I  0  N 
F  US  ION 
_ F  US  I  0  N 

F  US  I  ON 
0  M<  S  >  IN  F  US  I  0  N 

F  US  I  ON 
F  US  I  ON 
NUMBER  OF  F  US  I  0  N 


If  CONTINUE  FUSION 

DID  AT  LEAST  ONE  0  f  Y  m£  RINGS  IN  CURRENT  $  F.  T  HAVE  ATOM(S)  IN  FUSION 
COMMON  WITH  TEST  RING  J  FUSION 

!  F  <  «T  £ST  .  CO  .  0  >  GO  TO  21  FUSION 

YES,  RING  J  SHOULD  IE  ADDED  TO  IC  SET.  STORE  1.0-  NUMBER  OF  F  uS  I  0  N 
RING  IN  KOMI  AND  SET  JSCANtj).  FUSION 

K  V  *  K  V  +  I  FUSION 

K  0  M I  (  *Y,  I  C  »«J  FUS  I  ON 

JS  l'R*<  J  >*  \ _ FUSION 

2  5  CONTINUE  FUSION 

WERE  NCU  RINGS  AODEO  TO  IC  SET  FUSION 

IF  YES,  GO  TO  15.  F  US  ION 

J  FI  K  V  .  GT  .  K  |  >G0  TO  I  I  F  US  I  0  N 

NO,  NEW  RINGS  WERE  NOT  AODEO.  FUSION 

HOW  MANY  TOTAL  RINGS  IN  SET  IC  F  US  I  0  N 

IK  LESS  Than  Two,  FUSED  SET  IC  NOT  PRESENT.  IGNORE  IC  AND  GO  FUSION 
TO  I,  f US  I  0  N 

IFIKVI  )M,li  f  US  I  0  N 

JC  SET  Exists.  STORE  NUMBER  OF  RING  COMPONENTS  IN  NOkOM|.  FUSION 

_ also  ado  number  of  fusep  ring  components  to  variable  noif. _ r  us  I  o  w 

3  3  >10  K  0  Mill  C*  1  )■  K  Y  FUSION 

NO  I F  s  NO  I F  «  K V  fusion 

KSu»x«SU»-I  fusion 

STORE  NUMBER  OF  RING  PAIRS  IN  SET  IC  IN  N0K(l,IC>.  FUSION 

N0K  (  I  ,  I  C  >*«$  UB  F  US  I  0  N 

R  CTaKOMMONI  I  #  J,  I  C)  F  US  I  0  N 

I  F(  RS  Ul ,  GT  .  I  )  GO  TO  3b  F  U5  I  0  N 

ONIY  0  (V  E  PAIR  OF  FUSCO  RINGS  PAfSfNT  IN  IC  STORE  COMMON  FUSION 

ATOMS  IN  NO  K<  **.  I  C  >,  NO  <  (  5,  I  C  >  ,  .  .  .  f  U5  I  0  N 

DO  35  J  ■  I  ,  *  CT  F  US  I  0  N 

NO  R  (  J  *3  ,  I  C  M«0  MMO  N<  1  ,  J  ♦  3  ,  I  C  )  F  US  I  0  N 

35  CONTINUE  F  US  I  0  N 

NOR<  3,  I  C  JORCT  F  US  I  U  N 

CO  T  0  t»  F  US  I  0  N 

MORE  THAN  ONE  PAIR  CF  F  L'S  E  0  RINGS  A  R  f  PRESENT  IN  SET  |C.  FUSION 

DETERMINE  IK  ALL  RING  PAIRS  IN  IC  HAVE  SAME  NUMBER  OF  ATOMS  FUSION 

_ IN  COMMON. _ _ _  FUi  ION 

3  4  003  1  «»* ,  RS  Ul  F  US  I  0  N 

I  F  k  R  CT  .  NE  .  R(1  MMO  NT  J  ,  1,  I  C  ))  GO  TO  II  F  US  I  0  N 

3  7  CO  NT  I  N  JC  F  US  I  0  N 

YES  THEY  00.  NOW  OETEAMINF  HOW  MANY  OF  THE  RING  ATOMS  AA|  FuSlON 

C0M.10N  TO  AlL  f  US  I  0  RING  PAIRS  JN  SET  IC.  STORE  THESE  IN  f  US  I  0  N 

NO  Ft  I  C  I,  NOK<  J,  I  C  »  .  .  FUSION 

J  J  ■  0  F  uS  I  0  N 

00  *»3  L*  I  ,  «  CT  F  US  I  0  N 

00*|K'2,R$UI  FUSION 

DO  If  i  •  I  ,  K  CT  F  uS  I  0  N 

I  F  I  RO  MMONI  I  ,  L*  3  ,  I  C  I  .  EG  «  0  MMO  N<  K  ,  J  ♦  1  ,  I  C  >  )  GO  TO  A  1  FUSION 

3  ♦  CO  NT  |  NUC  »U5IO»i 

GC  TO  Al  f  US  I  0  N 

ATOM  1 0  mho  Nl  I  ,  L  ♦  3  ,  I  C  >  IS  COMMON  TO  AIL  FUSED  *  I  N  &  RAJAS  f  uS  I  0  N 

_ _  L*  S  <T  1  C _ _ _  F_US_I_DN 

VI  CONTINUE  f  US  I  0  N 

j  j  •  j  j  ♦ »  fusion 

no  m  j  JO  .  I  C  >  •  ■  0  M  no  H  <  I  ,  l  ♦  3  ,  IC) _  _  _  f  uS  I 0  N 

n  3  CONTINUE  f  uS  I  0  N 

STORE  TOTAL  OF  ABOVE  ATOMS  IN  NOK<J,JC>  AND  ST  0*1  TOTAL  FUSION 

NUMBER  OF  ATOMS  COMMON  TO  ANV  F  ur.  I  0  RING  PR|R  S  C  T  |  C  IN  F  uS  I  0  N 

NO  «<  1 ,  I  C  I .  F  US  I  0  N 


h  *t 


won  s,  t  c  ioj _ _ r  us  ion 


<i|  HOKt.lClMC?  fUSIOll 

SIT  TMI  LOCATIONS  OF  T  Ml  l  tC  *RR*V  CO  *  R  I S  F  0  N  D  I  N  8  TO  INS  GUO  U*  F  US  J  0  W 

W  UWtE  A  S  OF  THI  £0  ftF  0  WC  NT  S  OF  *  HS  RINGS  QF  SIT  'C  (OURL  TO  TU|  FUSION 

_ SIT  NUWtlR  (1C)  ♦  It**. _ _  9  us  I  e  N 


II  OOIS  PUSPOW 

J  ■  K  0  Nl<  L,  I  C  )  FUSION 

IF«|RI  N4U,  1  )*\  FUSION 

BOSS  IHl.lf  FU  ION 

J  J*I  R  I  N8(  J,  it  )  FUSION 

I  ftCCJJ  >•!  C*10#  FUSION 

IS  tOWTlNUC  FUSION 

10  TO  I  FUSION 

INN  FUSION 


I  ♦  Fit  TS  I  08-10 


GAD  AT  * 


SUBROUTINE  GAOATA 

c  this  subroutine  phi  a»t  s  out  the  group  rodttivitv  library  data 

C  IF  CALLED  FOR  IV  T  Ht  INPUT  DATA. 

I  NT  £  GEA  uRO  UP  l  (  100),  GR  C  UP  2  I  I  10  ),  GRO  UP  3  5  110) 
t  NT  F.  GEA  S  UA<  1  •«  ) 

OlflfcNSlON  CP  1  f  I  •  0  >,  CP  2  <  110  ),  CP  J  (  lftO),CP4(lBO> 

COnnOM/tLRY/NBC<  40,  90  ),  N»S(  40,1  >,N»X<  40,10  ),  I  A  C  ,  NO  N  F  US  ,  J  R  C  T  0  T 
CO  *«0  M/»L«T/SUR,HF2TI!  IBO  l,SHI(  110  >,  CP  XI  1  10  ,  4  ) 

COUl  VALENCE  <  rP  X<  1  ,  1  I,  CM  I  I  >>,<CPX<I,2),CP2<1  )  ),  UTM  I,  3  ),  CMtl)  ), 
I  (  CP  M  1  ,  4  ),  CP  M  I  )  ) 

IOUI  VALENCE  (  GRO  UP  1  <  1  ) ,  N  B  Cl  2  ,  1  )  >,  <  GRO  UP  2  l  1  >,  NBC(  2  ,  I  /  >  ), 

1  (  U«0  UP  J  <  1  ),  NB  C<  2 , 2  f  )  I 

Ci.O  PRINT  OUT  HEADING  APD  UNITS  OF  OUTPUT. 

uR)Tf(4,44B> 

99*  FOR  NAT  C  1  Hi  ,  3  S  X  ,  A  •  NT  ABIES  OF  T  H  C  R  nO  C  M  E  Hi  C  A  L  GROUP  CO  NT  R  I  B  UT  |  C  NS 
1  //  ) 

WA I T  E<  4, 9 9  4  ) 

94  4  Ml*  FIAT(  I  MO,  *  I,  $  X  r.»0  UP  ,  TI,4HUEIGHT,  2  I ,  I  TMMEAT  OF  FORMATION,  21, 
ITMENTROPY,  20X.24HHEAT  CAPACITY  COEFFICIENTS/  |H  , 2 0 X , 4 H * C A L / *0 L E , 
)  4  X  ,  1  2  MC  AL/Dt  G- AO  C  ,  J  X  ,  l  2  KC  AL/ OE  G- HO  LE  ,  2  X  ,  M  H  C  A  L/ 0  E  G*  •  2  -  F.O  L  E  , 

3  l  X ,  1 SHCAL/ 01  &• *  3  -  HO  LE ,  2  1 .  1  9 M C A L/ D E G* • 4 -  HO i i / 1  H  ,30I,Cm24B  A, 

A  4  X  #  9H29B  g  ) 

C  2  .  0  PRINT  OUT  T9BLC  OF  HYDROCARBONS. 

UR  I  T  El  4,  41  A  > 

*  4  A  FORWATIlMO,  *91,21  MOATA  FOR  M Y OR  0 C AA  BO  NS / /  ) 

UR  IT  E<  4,  3  >  (  GRO  UP  I  (  L  >,  GRO  UP  2  I  L  > ,  f»R  0  UP  3  <  L  > ,  S  V  n  I  L  )  ,  HF  2  9  B  (  L  ) , 

1  5  2  4Bi  L  >,  CP  I  I  L»,CP2(L),CP3*  l>,CP4fl),l«l,J3> 

3  F  0  R  n  A  T  <  I  H  ,2A4,A9,|B,4X,F10.  4,4X,FI0.4,FIT.  )0,F)4.10,2FI  1.10) 

0.0  PAINT  OUT  TABLE  OF  0  *  Y  GE  N-  CC  NT  A I  N I  N  6  GROUPS. 

UR  I T  £(  4,  992  > 

992  F  0  A  fl  AT  (  1H0,  *3  I,  33hOAT  a  FOR  0  1  V  GC  N-  CO  Nv  A  I  Nl  N  G  GROUPS//) 

WR|T|(4,S)  (  GRO  UP  III),  G"0  UP  2(L),CR0  UP  )(  L  )(St/"t  l  I,  MF2M(  L  », 

1  S  2  9  •  (  L),  C  P  1  C  l  ) ,  CP  I  (  L  ) ,  CP3<  L  ) ,  CP*<L),L«»I,44) 

9  F  0  P  n  AT (  1  M  ,  2  AA,  A»  ,  I  C  ,  4  I  ,  F  1  0  .  A,  A  I,  F  l  0  .  A,  r  I  r  1  0  ,  F  I  4  .  1  0  ,  2  F  1  ?  10) 

C  A  .  0  PAINT  out  TRBLI  OF  NlYAO  GEN  -  CO  NT  A  I  Nl  MC  GROUPS. 

WR I Y£<  »,  440  > 

490  FOR  NAT  (  1  NO  ,  A2I,  39H0ATA  FOR  N I  f  R  0  CC  N-  CO  NT  A  I  N  I  K  G  CROUPS//) 

UR  I  T  E  ii  4  ,  T  )  (  CHO  UP  U  L  ),  G"0  UF2i  L  ),  GRO  UP3<  U  ,  S  U«U  ’  ,  HF2  Til  U, 

I  S  2  4  B  <  LI,  CPU  L  ) ,  CP  2  <  l  ),  CP  II  LI,  vP  4<  I),  L  *  1  I  •  ,  14)  ) 

T  FOHHATIIM  ,  2  A  A,  A  f  ,  |  •,  4  A,  F  1  0  A,  AX,  F  I  0  .  A,  F  1  1  .  I  0  ,  F  1  4  1  0  ,  2  F  1  1  .  I  0  ) 

RETURN 

l  NO  w 


CROAT  A 
CAD  AT  A 
CROAT  A 
GAD  AT  A 
CROAT  A 
GAO  AT  A 
GAD  AT  A 
G*D AT  A 
CROAT  A 
GAO  AT  A 
GAD  AT  A 
GAD  AT  A 
GAO  AT  A 
GAD  AT  A 
GROAT  A 
GAO  AT  A 
GAD AV  A 
GAO  AT  A 
GAO  AT  A 
GAO  AT  A 
GAO  AT  A 
;ad AT  A 
GAO  AT  A 
GAO  AT  A 
GAO  AT  A 
CROAT  A 
GAO  AT  A 
GAO  AT  A 
GAO  AT  A 
GAO  AT  A 
GAO  AT  a 
CROAT  A 
GAO  AT  A 
GAD  AT  A 
GAO  AT  A 
GAD  AT  A 
GAO  AT  A 
GAO  AT  A 
CROAT  A 
CROAT  A 
CROAT  A 
GAD  AT  A 


OAUCM* 


it! 

ST. 


Cl.* 


SUCAOUTINE  GAUCHEl ■ I , r * , 181, I SH, IGO.OAUCMM I 

INI!  SUSAOutine  OE'tAnir.fs  umeimea  tmi  UGanos  or  Atons  >i  ano 
St  SSI  SSUCHI  ro  EACH  OTMEA.  IT  to,  ll  OETEPRINES  TNI  nuroia, 
T*M,  ANO  RA6MTU0E  OT  THE  GAUCHE  CCAACCTION. 

INTIGE A  OIRII  A  I.  STMOU  I  I,  GO  101  f  «,  to » 

■Meets  wiichkI) 

OtrtNSIAN  SCOAuSt  J,  HO  I.ITSAUSI  IIS  I.STCSUSI  II 0  I.DATCISI  I,  lit  I, 
tAORATt  A,  A  I.SI.'.ISTI  A,  1  I.RAAOI  100  I 
COrvOU/SLI  1  /NO,  ..OS ,  SYru  SvnOL,  NOYAU  1 1, (RIO 
COrr.O'l/ILSt/L't  ICHr.r.’.'Sri  Il.rOLUK  100  1,  111  1 00, 1,  t), NCI  100), ICC 
CORrON/fllS]/  IS  ING!  SO,  10  I,  MAT  II  10,00  l,NUI  100  t.lOCI  1 00  >,  KOMI  1001, 

noesi  iooi,toi  loo.i  i.iag.nooa 

IQU1VAUNC0  I  ICGAUSI  1,1  l.lrATII  I  ,  Tt  1 1, 1  ITGAUSt  I  I,  I  RATH  I, Oil, 

II  STGAUtl  I  I,  IRAT.lt  I,  tO  11,1  OATCISC  I,  I  I,  I  RATH  I  ,  1 1  1 1,  t  AAA  Jl  |  I, 

16SIDI  t  ,01 

icnsT  otni.rs  tno  nursis  cr  aioani  osucni  coaaectijns  when  si 
SNO  St  -SSI  OOTH  CAR5CN  STORi. 

OATS  SSRSTI  1,1  I/O/,  SBRATI  I  ,  t  l/O/.SORSTI  I  ,  1  I/O/. SSnATI  I  , S  I/O/, 
ISSnATIS.I  l/0/,«0-.U(  1,1  l/O/.ASRATl  t,  1  1/ I /,  IGn.ATl  t,  A  !/>/, 
tSGMATI  1,1  l/e/,SG.".An  1,1  l/l/,KGRATl  1,1  l/t/,SGRMIl,SI/S/, 

ISSnSTIS, I l/0/,SGRATI A,i  l/l/,IGMATI A, 1  I/S/, SGRAI I  A, S l/t / 

sriRSi  osrif.it  iKt  Hunts  or  alaane  oauCmi  cosAtcum  when  si 
GS  St  It  A  NIYAOGEN  ator. 

OATS  SKRATI 1,1  I/O/,  RP.RATI  1 , 1  l/U/,INRAT(  I  , }  I/O/, SflRATl  I,  1  I/O/, 
ISKRATll.t  I/O/,  It, RATI  1,1  l/l/.INRATl  1,  I  I/O/, SH.'IATI  1,  1  I/O/, SNRAII  1,11 
l/l/,SKr.Aft  A,l  l/0/,*H.-|AII  A,  l  1/2/ ,  SNRATI  A,  1  I/S/ 

IT  OOTH  SI  ANO  1/  Alt  NITAOGEM  STORI,  HIT  THOR  SOUTINE. 

IT!  I II  SI,  I,  I  1. 10.  A.  AND.  I II  St,  I,  I  I.IO.AISETUAN 
IT  SI  0*  II  IS  *11  OITGEN  ATOR,  GO  TO  11 

iriiiisi, i.ii.tt.i .os. iiisi,i,ti.i6.iiG*  to  is 

1TII0MSI  I.IT.1.AI.0.  Ml  11,1,1  I.NE.t  ISETUSN 
ITIIOHITtl.lT.l.S.'.O.III  11,1,1  I.NE.t  IOE TUAN 

COPE  ATORS  II  AN 0  It  AAC  EITHES  CARSON  RA  NITSCGEN  ATOnS. 


OAUCME 

0 AUCNE 

OAUCME 

OAUCME 

OAUCME 

OAUCME 

OAUCME 

OAUCME 

OAUCME 

OAUCME 

GAUCHE 

OAUCME 

OAUCME 

OAUCME 

OAUCME 

GAUCME 

OAUCME 

GAUCME 

OAUCME 

OAUCME 

OAUCME 

GAUCHE 

OAUCME 

GAUCME 

GAUCME 

GAUCME 

GAUCME 

GAUCME 

OAUCME 

OAUCME 

GAUCME 

GAUCME 

GAUCME 
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19. 

1ft. 

ir. 

39. 

r 

I  1C. 

M. 

G 

S 

UNO  Wur.SEA  OF  LICcr.QS  ftOUOCO  70  Kl  AND  R 2  WHICH  ft*C  HE* V V 
( NON-MYOftOGEN  )  ATOnS. 

KL«0 

ciuo 

LF  >  ROM  Rl  >♦! 

00190 

IFi  1  l<«l.i.,4>.fQ.K7.0A.II<Kl,l.,  D.I0.I  >G0  TO  190 

OAUCME 

GAUCME 

GAUCME 

GAUCME 

GAUCME 

OAUCME 

GAUCME 

GAUCHE 

L  Al. 

110 

CO’lT  IfoUC 

6AUCHC 

Al. 

LTsIONt  Ml  |.| 

GAUCME 

r 

80100  L>1.LT 

C  sue  ME 

ITtlKtl.L.tl. CO. II. OA. 11111,1, II. EO.IIGO  TU  110 

GAUCME 

1  "4 

GAUCME 

L  %r. 

110 

CONTINUE 

GAUCHE 

Rt«>a*i 

GAUCHE 

At. 

Rft  i  Kft*  ) 

GAUCME 

1 0 . 

c 

CCTEARII.f  IT  GAUCME  AlAANE  OA  GAUCHE  AlACNE  INTEAACtICNS 

GAUCME 

II. 

c 

•HE  PRESENT. 

GAUCHE 

ft. 

IIas 

GAUCME 

11. 

IM 

GAUCME 

is. 

c 

OETEARINE  it  II  CA  II  A«E  JOINED  »»  A  D0U3' I  ION!  TO  OTHEA 

GAUCHE 

95. 

c 

UGANOS.  IT  SO,  SIT  THE  COASiSTONOI’.G  TLAGlSI  ISUAl  TO  1. 

GAUCHE 

9ft. 

0011  t  *7 ,  § 

GAUCME 

9  r 

IF«  U<  *1,1,5  >-7  >4,4, 31 

GAUCME 

99 . 

ft 

11*1 

GAUCME 

99. 

9 

IFI  111 R7. 1.9  )-?  117.10.31 

GAUCME 

IP. 

10 

17*1 

GAUCHE 

ft!  . 

11 

CONTINUE 

GAUCHE 

Al. 

1  FI  III *1,1,1  k.NE.I  ICO  TO  110 

GAUCME 

tl. 

Rl*<L*l 

GAUCMf 

99. 

n*i 

GAUCME 

*9. 

ISO 

1  Tl  11111,1,1  l.f.C ,  t  IO'j  to  111 

gauche 

44. 

M>IK| 

•AUCMC 

47. 

ii*i 

GAUCHE 

fti. 

III 

|A|||.|1-I  IT. II. II 

GAUCME 

t*. 

c 

Alt.  CONUS  6/  ATORJ  II  ANO  Al  AA|  SINGLE.  TING  AllASf  GAUCME 

GA'JCHE 

>  •. 

c 

CCNTHIDUTIOC  S  l  II?  «’;*>  i\0  Sir  I  Hi  Ft*t|f.E«l  VA4IA3KI. 

GAUCHE 

c 

IS  II  CA  11  A  hllAOGIN  AIOR 

OAUCME 

11 
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3") 

T5—JTI 


T9  “I 


TTT=? 


7=T 


•r  at*  n  o.oi-is 


77 


it. 

M. 

?*. 

M. 


f  Iff ll<*l,l,l  t.NE.*)GO  TO  106 

MONIfat 

MOCAKsRR 

GO  TO  101  _ 


t*UCM| 

CaUChC 

•AUCHE 

OAUCMC 


16.  130  |F<  IX(K2,I,I  >.N£.*)G0  10  106 

tf.  nonitbvk 

M.  HOCARett 

H.  C _  til.  ONE  ok  THt  CENTRAL  ATQrtS  IS  6  XI TROOSN  AT3H. 


•AUCHE 

•AUCHE 

fAUCMC 

«AUCN{ 


•  0. 
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II. 
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B*. 


202  |F<  IW.UTtNOCAR, NONIT  KCO.OUCTUM 

I0S>I«S»I 

9FGAUSC  IQS  JaKN.nATI  NOCAR.  NON  IT  I 

60  TO  2t0 

C _ HQ,  THg  TUQ  CENTRAL  ATOMS  ARE  CARBON  ATQHS. 


•AUCHE 

•AUCHE 

6AUC.ME 

•AUCHE 

•AUCHE 
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106  IH *Gn*T< AL,*a  ).f 0.0  )P£TU&K 
16$>fiOS«l 

_  BFCRUSI  |8$W6AlTj  Mj  I 


•AUCHE 

•AUCHE 

•AUCHE 


II. 

If. 

fO. 

ft. 

fl. 

fl. 

t*. 


210  XTGAUSl  I0$l*S 

OATCISt  l#IGS>sO.I«M.OAT<KFGAvS<  IGS  I) 

60  TO  21 

C  ONE  ATOM  CKI  OA  12 >  IS  OOUBLC  B0N0C0  TO  AND THE A  L ! G ANO 

C  OTHER  ATC.n  HAS  ONLY  SINGH  60N0S.  FIND  ALKCNE  GAUCHE 

C  CONTA  I  OUT  I  ONI  S  >  UF  ANV  )  ANO  SET  THE  FEAT  INENT  VARIABLES. 

C  OCTltAn | f;f  WHETHER  Kl  OR  R2  HAS  THE  OOurtE  BONO. 


THE 


•AUCHE 

•AUCHE 

•AUCHE 

GAUCHE 

•  AUCHE 

•  AUCHE 
•AUCHE 


ts. 

f  4 . 


II  *G0=2 

I  FI  H-I2  >13,31, 


•AUCHE 

•AUCHE 


ff . 
IB. 
ff . 

100. 
101. 
10?  - 


n  kep.ecka 

IANEsKL 

KCENE*K2 

•CANEsXK 

in  mm, i,  i  >.eq.*>kco*i 
go  to  ir 


•aucmc 
•auche 
•AUCKE 
•AUCHE 
•AUCHE 
•  AUCHE 


10). 

10*. 

to*. 

104. 

or. 


if  r.Cf.EsXL 
KANCsft* 

*C€N£=XI 

BCANEtKl 

|F<  |U  %?.  ,1.1)  ,C0.  A  XGQil 


•  AUCHE 
•AUCHE 

•  AUCHE 

•  AL'CH£ 

gauche 


ioi. 
10*. 
I IV. 
III. 


ir  GO  T0I220, 2*01, ago  6AUCHE 
C  ONE  CENTRAL  AT0J1  IS  A  CARBON  ATOfl  ANO  THE  OTHEA  A  NITROGEN  6AUCME 
C  ATOM.  FIND  FREQUENCY  OF  CORRECTION  ANO  SET  THE  PERTINENT  GAUChE 
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IF  ASYMME  VA I C  ATOMS  AWE  EWESENT.  0ETEAH1NE  IE  ANOTHEW  CHAIN  Or 

HAICHN 

30  . 

c 

THE  SAME  IMAIIMUH)  LCNGTH  IS  EWESENT  WHICH  CONTAINS  HOAE 

HAICHN 

31  . 

c 

ASYMMETRIC  ATOMS.  IF  SO,  UTILIIE  THIS  ONE  AS  THE  MAIIMUH  CHAIN 

HAICHN 

32  . 

ifinasymc.eo.o.ow.fsame.eq.i  >go  to  is 

HAICHN 

31. 

c 

ONE  OA  HOWE  ASYMMETRIC  ATOMS  ARE  PRESENT. 

HAICHN 

30. 

AOEMAA.O 

HAICMN 

35  . 

A  1 “LY* l 

HAXCMN 

30. 

13 

A  OE  20 

HAICHN 

3T  . 

c 

FIND  HOW  MANY  ASYMMETRIC  ATOnS  (  AOE >  AWE  EWESENT  IN  MAIIMUH 

HAICHN 

30. 

C 

CHAIN  IY. 

HAICHN 

r~  10. 

00 1  T  L 1 1  ,  NAS  VHC 

HAICHN 

f  00. 

OOIS  A  *  1 , AHA A 

HAICMN 

01  . 

IFI  10EATMI  L  I.NE  .NBCI  LV,(  >>G0  TO  If 

HAICHN 

02. 

AOF*AOE.| 

HAICHN 

os. 

GO  TO  IT 

HAICHN 

L  M. 

77 

CONTINUE 

HAICHN 

1—  0*  . 

1 1 

CONTINUE 

HAICHN 

04. 

IFI AOE  EO.NASYHC IGO  TO  IS 

HAICHN 

0?  . 

c 

AOE  IS  LESS  THAN  TOTAL  NUMBER  OF  ASYMMETRIC  ATOMS  EWESENT. 

HAICMN 

OG. 

c 

CONTINUE  SEAWCH. 

HAICHN 

0*. 

IFIAOE.LE.AOEMAI  >G0  TO  21 

HAICMN 

50. 

c 

AOE  IS  GWEATEW  THAN  PREVIOUS  MAIIMUH  NUMBER  OF  ASYMMETRIC 

HAICHN 

51  . 

c 

ATOMS  CONTAINED  IN  CHAIN.  DEFINE  NEW  MAI J  MUM  CHAIN. 

HAICHN 

12. 

AOENAIaACE 

HAICHN 

11- 

LVE«t  V 

HAICHN 

5o! 

77 

IFIAI  .OT. LA  IGO  TO  If 

HAICHN 

Sf. 

c 

NOT  ALL  CHAINS  HAVE  SEEN  TESTED.  FINO  NEW  CHAIN  TO  TEST  THAT 

HAICHN 

50. 

c 

lontain;  a  maiimum  number  of  core  atom  constituents. 

HAICHN 

r  *r- 

0021  L.WI.LI 

HAICMN 

I  50. 

■  FINISH,  1  I.Bf.AMAI  >09  TO  1 1 

HAICHN 

L  so. 

2* 

continue 

HAICHN 

00. 

.10  TO  If 

HAICHN 

61  . 

7 T 

l.V«L 

HAICHN 

it. 

WI»L«1 

HAICHN 

41. 

GO  TO  II 

HAICHN 

6*3. 

7 T 

JY.f 

HAICHN 

69. 

co. 

G 

STOGIE  SAOUE  WUMBCAS  OF  LONGEST  CHAIN  IN  MBC .  STONE  OTHER 

HAICMN 

46. 

t 

PERTINENT  CHAIN  DATA  IN  Hi'. 

HAICHN 

rT  *'• 

77" 

001T  (.HUMAN 

HAICHN  " 

3  f 

HBCIN  I.NBCl LYE, N  1 

HAICHN 

Hi  SI  1  >.NMAI 

HAICHN 

1  »*• 

HBSI 1  >»L»E 

HAICHN 

II- 


1 1  *  — I 


iH 


3* 


3 


21  -1 


7C- 


3- 


35 


1-2 
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M.  c» . o  r«i«r  nur  the  total  momma  or  coat  atom  const i ijents  in  the  march* 
71.  C  CHAIN  A  NO  THE  I A  8A0UM  HUMAfA*.  MARCH* 
71.  WAITE! A, A!  UMAX  MARCH* 
7 a. .  Nl  FORMAT!///  IN  ,  101,  NIHNUMAEA  or  CORE  ATOMS  IN  LONGEST  CHAIN  •  ,  MARCH* 
U.  Ilf  I  MARCH* 
TA.  Ur  !TE(  t,H5  KMBCIMI  M«I(RMAH  MARCH* 
77.  Nf  FORMAT! IHO,  7«,»fHQAOUA  NUMBEA  OF  COAE  CONSTITUfNTS  Or  LONGEST  CHA  MARCH* 
71.  11*  *  ,  IO<  If,  IN,  I/I  IN  ,4X1, 101  If  ,  IN,  >  I  >  MARCH* 
71.  AETNA*  MARCH* 
If.  ENO  MARCH* 


* . 
4 . 

? . 
• . 
♦ . 

I  • . 
( 1 . 
1 I . 
I ) . 

; 

i  * . 


c» 

c 

c 


SuftHOullNK  AU IT  1 1  1AT0A,«*0,A,  l|«»> 

THIS  SUBROUTINE  IDENTIFIES  A  U  l.T  I  -  C  M  *P  A  C  T  (  l»  ,  AULU-WOBO  I  UT 
SV"»U  CaNtllMD  IN  1AT0A  WITH  T  Hi  CO  M  P  (  S  P  0  NO  I  N  6  AULTI- 
CMftftACTE*  IIN61C  WORD  PBOSfcAA  ll  SMH  SYMBOL. 

1  NT  I  £|N  %  V  AlL(  J  ,  4  ) 

DIMENSION  iri  K^JtTONm 

C0nnON/UM/NK(  40  ,  90  ) ,  NAl <  40  ,  *  > ,  N  4  * »  40,14  )  ,  I  0  C,  NO  NF  uS  ,  1NCT0T 
EQUIVALENCE  (  I  M  II  I  ),  NIC;  1,41) 

0  AT  f  $  V  n»i(  I  ,  I  )  /  l  H  C / , 5  V  HQ  L (  t  ,  I  l/lND/.SVAliO,  I  )  /  1  NO  /  , 

1$  V  ABU  »  ,  I  )/lNC/,>T«IL(l,t  >/lHN/,SVA»L<),2  I/|N0/,SVAIU  1,5  > / 1 NN/ , 
CSVRIH  I  ,  I  )  /  1  HO  /  ,  S  V  A  B  L  <  5,5  >/l*0/,SVABl<  !  ,  0  )M  MN/ ,  S  f  niU  *  ,  4  )  /  l  M  0  /  , 

55  V  ABLl  I ,  0  > /  I  H8 / 

INITIALIZE  CVClI  THAT  SEARCHES  0  VIA  Hi  A  U  l  T  I  -  C  N  All  A  CT  |  A  ,  AULT  I  “ 
WO  A  0  MOCMN  S  V  R§0  LS  (  5  V  All  >  4.NICH  AA  E  EQUIVALENT  TO  1  M(  AULT  I  - 
C  H  A  A  ACT  EA  ,  SlNCtf  WOAO  P  B  Q  SB  A  A  L  I  M  AA  V  S  V  A 1 0  L  S  <5  ¥  A  00  L  >  . 


AULT  | 
AULT  I 
AULT  I 
AUL?  X 
AULT  I 
AUlt  I 

AULT  I 
AULT  1 
AUlf  I 
AULT  I 
AULT  I 
A  U  V  T  I 
AULT! 
AULT  I 
AULT  I 


14. 

00  I  1  1  «1 , 4 

AULT  I 

1  7  . 

C 

Z  C  A  0  1  F  I  k  AA  A  AV  . 

AULT  1 

i  i . 

00  1  J  >  1  ,  1 

AULT  1 

i 

I  F  I  l(  J  >•• 

AULT  I 

ao . 

J  C-l 

AULT  I 

1 1 . 

C 

CCaPaNI  EATM  ELEAENt  OF  INPUT  SVABOllL)  AGAINST  EACH  C 1 1 A(  NT 

AULT  I 

r  i 

c 

07  L  1  •  *  AAV  SVMOLUl.  IS  AATCH  OBTAINED 

AULT  I 

00  V  L  *  l  ,  *  NO 

AULT  1 

!  4. 

■  I  •  1 

AULT  1 

k  f . 

2 

00 1  «•« 1  ,  1  NO 

AULT  1 

S  4  . 

I  r  (  I  ATO  At  L  >  ■  EQ  ■  S  V  R1LI  I  ,  1  )  )  CO  TO  9 

AULT  I 

«  7  . 

1 

CO  NT  I  NUE 

AULT  I 

I  «  . 

c 

NO,  TAT  NEW  l.l  IMM  tVABOL. 

AULT  1 

1  9  . 

60  TO  11 

AULT  I 

1  0  . 

c 

vEs,  has  this  liqaaav  elerent  hm»o»  men  hatched  ;n  the 

AULT  5 

c 

S  CAN  or  this  5  V  A|0  L 

««lt  1 

S  2  . 

5 

00  7  1  ,  J  c 

AULT  I 

J  1  . 

irurlKN).  NE.IXO  TO  T 

AULT  1 

IV 

c 

VIS,  1  6  NO  A  E  .  PNOCEtO  TO  NEXT  Ll  IMly  CLfR|MT  |p 

"ULT  1 

1  9  . 

e 

AVAILABLE.  OTheAuISE  TO  NEN  L 1  |A  A A  V  SVAACL 

AULT  I 

S  4  . 

*  1  ■  A  •  1 

AULT  I 

I  T 

T  f(  « I -k  NO  >2,1,  11 

AULT  I 

50. 

7 

CO  NT  1 NUE 

AULT  I 

If  . 

e 

NO.  SET  iril  ANO  TEST  Nt  NT  ELEAENT  Of  INPUT  SvnBOL. 

AULT  I 

M 

1  »*  I  1 1  i  c  >  ■  C 

AULT  1 

41  . 

JC‘JCO 

A  -J  L  T  | 

42  . 

f 

CONT  I  NUE 

AULT  | 

4  J  . 

1  r  1  l  «  NO  »  1  )  .  Nf  .  J  C  )  CO  TO  11 

AULT  ] 

4  4  . 

c 

1  Of  NT  1  r  1  C  AT  I  0  N  ACHIEVED.  SET  N  TO  COAMCCT  VALUE  ANO  CUT. 

"ULf  1 

4  9 

A»l«  • 

null  I 

ACTUM 

AULT  1 

47  . 

1  CONTINUE 

AUL?  I 

44 

C 

IOCNTIP! CATION  NOT  »C*3CVCD.  SET  EBBOB  FLAG  ANO  EBIT. 

AULT  1 

4  f  . 

1  ll*«  1 

AULf  1 

>0. 

bit  unu 

AU'  T  I 

91  . 

cm 

AULT  t 

if  rn  n  t.  ti-n 


NINE  C 


C 

C 

r 

c 

c 

c 

c 


Cl  .  0 

c 

c 


c 

C  3  0 

1 

c 


1 


c 

c 


a 


« 


T 


c« .  o 
c 


suqaoutjni  niwic<  min  :  kimic 

THIS  SuiROuMItl  FINOS  T  Ml  NIHT  [MAIN  MON  WHEN  T  M(  LOST  N  f  NR  C 

IDKNTirilO  ATOM  («C>  IN  T  Hi  CHAIN  IS  A  QARNCH  ATOR  T  HI  NEW  NEWRC 

CHAIN  ATOM  IS  SIT  EQUAL  TO  ONI  OF  THE  UNUSED  COAK  ATOH  LlGANCS  NfWRC 
OF  RC  AND  IS  STORED  IN  1C  IF  ACL  OF  T«ISI  LIGANDS  HAVE  NtNRC 

ALMAOV  KEN  I  NCORFOR  ATIO  IN  SOHI  CHAIN  LINN,  T  HE  MJC«AR  (KITS  NtNRC 
F  A  0  H  THE  S  U  t  A  0  Ul  INC  UNLESS  R CF V  IS  NOT  STONED  IN  THE  AIOUlAEO  NtNRC 
OAOIA.  NtNRC 

INTEGER  WEIGHT(f)  Nl  WR  C 

DIMENSION  i UNCT (  f#  10  0  )  ,  NO  »A  0(  ION  I  NE  WR 

COHHON/ILRI/WFI  6HT  ,  MW  6T  (  f  ) ,  HO  LNT  (  IOO  ) ,  I  I*  100,  9,  A  > ,  N  Cl  t  09  )  ,  A  C  C  Nt  WR  C 

CO  MHO  N 1  L  R  3  /  I  A  I  N  6  (  '0,  30  I ,  I  H  A  T  H  <  3  0  ,  •  C  )  ,  N  W  (  1  0  0  )  ,  I  IC(  I  0  0  >  ,  *6  N(  ICfi  )(  NtWIC 

I  DBN<  100  I,  I  »(  I  00,  •  I,  Ifc  8,  NOD*  NE  WR  C 

EQUIVALENCE  (  JUMCTt  1,  I  ),  I  F*1  III  ,  I  >  >  ,  <  NO  I A  IM  I  IJRATlOJI  >)  NtNRC 

SIT  IFLAG2  AND  INCREMENT  NO  t  A  0 .  NENRC 

tFi.AGl-9  NtNRC 

NO  »  A  0  (  RC  >•  NO  |R  01  R  C  )  •  J  N  E  N  R  C 

IS  IFLAGt  EQUAL  TO  0  N«  NEWRC 

I  F  <  I  F  L  A  G 1  .  NE  .  I  >G0  TO  I  NtNRC 

VIS.  IF  ALL  LIGANDS  OF  ATOM  RC  HAVE  REIN  US  f  0  ,  GO  TO  I-  NtNRC 

OTHERWISE,  GO  TO  Q.  NtNRC 

I  F<  NO  IAO(  R  C  I- NCI  K  C  >  >«,  Q,  2  NENRC 

NO,  IT  IS  NOT.  NENRC 

ALL  CORE  ATOM  LIGANDS  OF  >R  AN  CH  >TQW  *  C  WAV  NAVE  AlfN  USEO  NENRC 


!  r  /  NO  QAO<  a  C  >  •  IE  •  NCI  «  C  )  I  GO  f0  A  NENRC 

AIL  CO  A  C  ATOM  LIGANDS  OF  I A  A  N  C  H  AT  0  M  U  HftVf  RifN  USED.  NE  WR  l 

I  F  <  J  UNCT  (  I  ,  R  C  >  ■  Nl  R  CF  ¥  )  GO  TO  S  NENRC 

RCFV  IS  IN  COAAECT  LOCATION.  SET  I  F  L  A  G2  AND  E»IT. _ NE  NR  C 


I  F  L  A  62  •  1  NIWFC 

HIT  UA  N  NENRC 

*CM  IS  NOT  IN  AEOUIAtC  fOSIT  ON  AESET  NQ  RR  C  .  NfWRC 


NORROIRO-X  NENRC 

IF  CONDITIONS  REQUIRE  IT,  STORE  VALUE  OF  R  CF  ¥  IN  JU  N  t  T  <  l  ,  R  C  ,i  NfNRC 
snitching  to  cat  i  q  ns  nitm  gaoufnuhrer  factious  ly  there.  newrc 


J  F  »  N  C  <  RC  I  NENRC 

00»  J • t , i F  NENRC 

I F <  J UNCT<  J ,  R C  )  EO  R  CF  *  > GO  TO  T  NENRC 

CONTINUE  _  NEWRC 


|F(  J  .  IT  .  NORftOt  RC  MCJ  TO  ♦  NEWRC 

IYfWF«JUNCTl  J  ,  R  C  )  NEWRC 

J UNCI  <  J  ,<  C  »« J  UNCT <»,  R C  >  N|  N«  C 

JUNCTC  I  ,  RC  >  •  I  T  f  MF  NENRC 

SIT  R  CF  ¥  EQUAL  TO  CURRENT  RC.  THIN  SIT  lC  IQuRL  TO  ONI  OF  THE  N| HR C 
STILL  UNUSED  CORE  ATOM  l  I  HMDS  >0  NOI  0  IQ  >  A  mCh  AT  0  w  It  NEWRC 


RCFV»«t  NIUHC 

I  T  l  HR  •  NO  QA  |M  K  C  I  NEWRC 

R  C>  J  UNCT  (  I  T  (  FlF  ,  A  C  >  NfWRC 

RETURN  NEWRC 

END  NENRC 


1  *  Fit  Tt  I.  •  *-*» 
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SUBROUTINE  NR  I  NGSf  I GS  ,  I  ANG3 ,  ROOT*,  MR  I  Nfi ,  SR  I  NG ,  CPSYM  )  MINGS 

THIS  subroutine  determines  whether  the  existing  SIX-MEMBEREO  nrinos 
Nl TROGEN-CONfAININO  RINGS  TORN  RART  OE  THE  TRICYCLIC  FUSED  RING  NRINGS 
SYSTEM  Ml  2  >C<  4  INC  12  >.  WHERE  EACH  RING  IS  FUSEO  AND  HAS  A  ROINTS  NRINGS 

IN  COMMON  WITH  EACH  OF  OTHER  TWO  RINGS.  IF  RRESENT  IT  ADDS  NRINGS 

RING  CORRECTIONS  TO  THERMODYNAMIC  RAORERTIC3.  NRINGS 

INTEGER  WEIGHT! R)  NRINGS 

Olf^NSlON  ROMS!  NO,  I C  >. NOKGMBI  I  I  >,NOXI  16,10),  KSPAORI  4, NO  ),  NRINGS 

I  J  STORE!  3  1,  RDATAI  6  I.CPSVM!  R  ),RTGAUS<  ISO  >,KCGAUS<  3,  ISO  I  NRINGS 

CORMON/6LX2/WE  I  GHT , MUGTI  9  l.MOLWT!  1 00  ),  I  »(  1  BO ,  3 ,  *  >, NCI  1 00  >,RCC  NRINGS 

COMMON/BLK  3/  !R  I  NG!  HO.  30  I,  I MATS!  SO,  BO  >,NW(  100  ),  IBCI  100  >,KCN(  I  00  I,  NRINGS 

1 1 06A<  100),  IB!  100,1  >.  IRS.NOIR  NRINGS 

COMPION/BLXN/NBCI  60, SO  l,N05(  40,2  >,NSX<  40,20  >,  IRC.NONFUS,  IRCTOT  NRINGS 

E0U1  VALENCE  (KOMB!  1,1  >,  I  B<  42  ,  H  )),  (  NOKOMB!  1  ),  1  Bt  80,  •  )  >,  I  JSTOREI  I  I,  NRINGS 
1IB!  SB,  *1),  I  NOR!  1,1),  1MATXI  1,99)  >,t  KRRROPt  1,1  ),NBXI2,I  > ),  NRINGS 

21  KTGRUSI  I),  IHATXI  1 ,60  ) ),!  KCGAUS!  1,1),  IMATI!  I  ,  72  >  >  NRINGS 

0  INITIALIZE  CYCLE  THAT  TESTS  EACH  FUSEO  RING  SET.  NRINGS 

IC=N0X0MS13>  MINGS 

0  HOW  MANY  RINGS  ARE  THERE  IN  FUSEO  RING  SET  J  NRINGS 

DOT  Jil,lC  NRINGS 

XV=NOKOMBl  J*1  )  NRINGS 

IF  HUMBER  UNEQUAL  TO  3  IGNORE  SET  J.  NRINGS 

IF! XY.NE.3 >G0  TO  1  NRINGS 

SET  J  COMPOSED  OF  3  RINGS.  NRINGS 

IF!  NO*!  I,  J  S.NE.  3.0R.N0X!  2,  J  >.NE  ,  H.  OR.  NOKI  3,  J  I.NE.2  >G0  TO  7  NHINGS 

EACH  RING  IS  FUSEO  AT  H  POINTS  TO  EACH  OF  THE  OTHER  TWO  NRINGS 

RINGS  AND  TWO  OF  THESE  FOUR  ATOMS  ARE  COMMON  TO  ALL  THREE  NRINGS 

RINGS  NRINGS 

X  1  =NOXI  R,  J  )  NRINGS 

X2-N0KI  S, J )  NRINGS 

IF!  IX!  XI,  1 ,  ll.NE.N.OR.  1X1  X2, 1 , 1  ).NE.N  >G0  TO  7  NRINGS 

THE  TWO  JUNCTURE  ATOMS  ARE  NITROGEN.  NRINGS 

NX3"0  NRINGS 

0  DETERMINE  WHETHER  THE  3  RINGS  IN  SET  J  ARE  ETCH  6-CENTERED  NRINGS 

CARBON-NITROGEN  RINGS  WITH  NO  DOUBLE  BONDS.  NRINGS 

001  X  =  l,XV  NRINGS 

l-X0M81X,J)  NRINGS 

IF!  IR1NGI  I,  J  ).NE.  6  >G0  TO  f  NRINGS 

RING  I  IS  6-CENTEREO,  NRINGS 

IF!  XRPDOPI  I  ,  I  HXRPROP!  S,  I  >. NE  .  0 . OR . KRRRCP!  3,  I  I.NE.2  )G0  TO  T  NRINGS 

RING  I  COMPOSED  ONLY  OF  H  CARBON  AND  2  NITROGEN  ATOMS  WITH  NRINGS 
NO  DOUBLE  BONOS.  STORE  1.0.  NUMBER  OF  RING  INVOLVEO.  NRINGS 

NX3-NX3«I  NRINGS 

JSTOREI  NX 3 )3 1  NRINGS 

I  CONTINUE  NRINGS 

0  DETERMINE  SEPARATION  OF  TWO  NITROGEN  ATOMS.  NRINGS 

X2-XRPR0PI  H,  I  )♦  J  NRINGS 

X3  =  I A I NG! I ,  X2  )  NRINGS 

IF!  IX(  *3,  1  .  S  l.NF.H  IGO  TO  7  NRINGS 

THE  ?U0  NITROGEN  ATOM*  ARE  IN  THE  I  AND  H  POSITIONS.  NRINGS 

0  SET  J  IS  the  TRICYCLIC  fUSEO  RING  SYSTEM  Nl  2  )C!  6  >HI  1 2  ) .  AOD  NRINGS 

CORRECTIONS  TO  THERMODYNAMIC  PROPERTIES,  STORE  PERTINENT  NRINGS 

PRINTOUT  DATA,  ANO  CONTINUE  IHE  TEST  OE  OTHER  FUSEC  RING  SETS.  NRINGS 
HR IN5-HR INGaROAT A!  1  )  NRINGS 

SRING  =  SHING*RDATA!  2  >  NRINGS 

003  XX*I,N  NRINGS 

CPSYMl  KH  1-CPSYM!  XX  )«ROATA!  XX*t  )  NRINGS 

3  CONTINUE  NRINGS 

IRNG3* I RNG3* t  NRINGS 

I6S*IGS*I  NRINGS 

XTCAUS!  IGS  )■!  NRINGS 

009  XX ■ I , 3  NRINGS 

9  XCGAUSl  XX,  IGS  >3  J  S  TORE!  XX  ) _ NRINGS 

/  CONTINUE  NRINGS 

RETURN  NRINGS 

END  NRINGS 
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«  AAAAV  I  A  T  Hi  OADCA  THAT  THE  L I  H 
L  D  HAVE  J  f  AM  ANGED  IN  OAOfA  OF 


H  HE  NT  5  IN  1A. 


ntaincd  in  ia.  initialize  cycle 


ACENT  CLEMENTS  IN  ID,  NAME  L  V  ,  J  AND 
ONOING  TO  ELEMENT  J  IS  CAEATCN  THAN 
0  ELEMENT  J  ♦  1  ,  THEIA  0  A  fl  E  A  IN  I  A  IS 


SUMO'JTlMt  0in.»mi,ll,CI,lTU7)  OXVATft 

6  THtt  suiAogrtNf  ditiaaims  wmctme*  1*5*1  mi  o,  pa  t  -  c  t  « o  >  -  oxvatpi 

C  IB  0  uf  5  PRISKftT  It)  RfNft  R  N Hi  C  H  M(  ARJRCZNT  TO  ft  N  OXYfiKN  ATOft  OMfiTN 

C  ‘.OCX  (OX  NlTAJfiU*  ATO*'  IIIINIU  PA.7T  Of  T  Hi  Mkl  IRCxSONC  OlVaTft 

G  ITHuCfUM.  QITftTft 

ttffgfct«  yci«NT<«>  oxvat* 

31  MNt  |  0  N  MR(  )«  T  OITA*;; 

CO  ANOM/  Ik  At  /  hit  I  fiNf  ,  RMfiT  <  t  I,  *0  LMT  (  1  OO  >,  !  X<  l  00  ,  f  ,  t  )  ,  NC(  1  Oft  ),  «  tl  OIV  MR 

COftAON/l.ll/lRI  M(  10  „  a  f  ),  1  ft  A  T  X(  ?  0  ,  10  ),  RW(  100  >,  J  I  C(  10  0  ),  X0  IM  100  >,  0  X  V  AT  P) 

1  I  ®*a  /  V  oo  >f  I  at  v  oo ,  l  >,  I  a  t,  uo  »«  0  x  v  ai  n 

tft  uf  vaunci  (  #ia«  i  i,  I  ftor  K  ii  ,  n?  >  >  orvMH  I 

Cl  *  FIDO  '.OCMirx  OF  C(  O  I  GA  0  UPS  10  MSI  I.  OlVftTft  I 

i»0*V*«  DITftTR  I 

ftF«U  0  P &K(  R  ,  l  I*  t  OlfATft  J 

00  f  M«I,  HP  0  X  V  AY  ft  • 

1F<*.  I*.  10 Cl> *0  It*  OXVATft 

r,  X'Kl  COAPSN«*T  XI  IS  DOT  A  ft  0  X  V  GIN  (OR  N  I  T  ft  0  6CN  )  ATOft.  OXVATft 

m»iK!M>l,ft)  0  X  V  AT  ft 

Mn*US,l:  l  -  .WI.'hM  16  11  0  I T  AT  ft 

C  *;*t  COftt'OllAt  xt  CC  NT  A I  NS  C(*Bl  UMXftfitf.  0  X  V  ft  T  ft 

NO  X V* DO  XV*  0  *V  AT  ft 

r,  ft ,  NO  J.  7  5 1  ft  _  0  *  V  AT  ft 

i  COHTlfc’jg  0  X  V  ft  T  ft 

Cl-  4  5  3  T  f  UU  FLAG  AC  CQ  AGING  TO  ft  U  ft  1 1  ft  UF  C(  »0  >  L )  ft  X  A  G I  S  PA  CSS  NT.  fllH'H 

UMlOiV  M.IKO  rt  )!  J  xv  AT  ft  »J 

C  Two  C(  *0  »  GROUPS  PAISINT.  «Xf  TH£Y  A  0  J  »  C I  NT  70  THE  0  HSlft  OXYaTW 

C  OR  NITROGEN  ATOft  LOCK  0  ‘i  V  A  T  ft 

JCl*  ft  H  (  I  )-  ft  At  l  )  0  X  V  AT  Pi 

J  Of  "  I  A**>  (  10  C  X- ftftt  \  »  )  0  I  V  A T  ft 

I  F  <  J  0  1  *1  *  OA  .  J  Of  .HI  1  .  HftO  -  .1  01  .  ft!  .  I  ft  I  ft  fit  *  ,  1  )  l  )  GO  TO  IT  OXVATft  »T 

C  VfS.  SET  FLAG*!,  0  X  v  ft  I  ft 

*  !  T  «  f  *  ■  8  0  ■  v  •  T  ft 

„  A  I T  UA  II  _  __  _  _  _  _  _ 0_*  V  ft  T  ft 

;>  mxeiv.Ni.iuo  ie  n  oiyata  n 

t  ONE  Cl  *0  >  OAOUP  PRESENT.  SIT  f  L  Afi*  J  .  0  X  V  ft)  ft 

I  TEST  -  1  0  XV  ftt  ft 

RET  URN  OlYftTft 

C _ gOgjLJ'.g**  *  NT  .  SIT  f  1  _ _ _ _  _ C_»  VftT_ft 

I t  i T 1ST ••  CXYftTft 

A  r  T  UH  *  0  *  Y  AT  ft 

C  N •  f)  X  V  RT  ft  | 


i 


PA  I  WT  1 


SUBROUTINE  M1NT1 

THIS  SUBROUTINE  PRIMS  OUT  T  MI  ATOMIC  Cl)  n>05  I  T  I  0  M,  THE  ASSIGNED 
WEIGHTS,  AND  THE  STRUCT  UR  E  AND  COORDINATE  »M  II.  IT  ALSO 
WILL  OUTPUT,  IF  PRESENT,  THE  NUMBER  OF  COMPONENTS  IN  EACH  R'NG 
AND  T  HE!  A  GAO  UF  NUMIM  . 

I  NT  l  GEM  SfRII  ft  J ,  $  Y  MlO  Lit),  GA  I  04  It ,  ••  ) 

I  NT  E  GCA  WE  I  G  N  7  (  t  ) 

Common  /  ft  LA  I  /  NO  ,  NOS  ,  S  ¥H1,  S  YMftO  L,  MO  V  RL<  ft  ) ,  GR  I  0 

COH*nU/»l«;/wC!  6HT  ,  MW  GT  <  ft  ),  M0  l  WT  (  too  >  ,  I  I  <  100,5,4),  N  c  (  100  ),  *  c  c 
CO  nno  u/  U(  3  /  I  a  I  N64  «Cf  SO  ),  I  NAT  K  }0.  10  I,  kM(  IOO),IBC<  I  0  P  ),  *0  N(  100), 

I  I  0*A<  T  0  0  ),  1  •(  100,  ft),  (ft  A,  NO  BR 

COM  nO  N/BL*ft/NBC(40,  SO),  NftS  <  40  ,  11,411(40,70  >,IAC,NONFUS,I«  TOT 
COrt.  '.OH/  BLR9/N0ATM,  NUMATM4  5  ),  M»  C(  9  0  ),  MBS  (  7  ) ,  J  W,  J  V  ,  IFLA6S  ,  L  F  L  A  6  6 
)  ft, I?  SECTION  'HINTS  OUT  THE  ATOMIC  COMPOSITION  OF  THE  MOLECULE. 

W* 1 T  E  <  4 ,  ’  ) 

l  FORMAT!//  )  HO  ,  Aft  I  ,  31  HU  f  0  MI  C  COMPOSITION  OF  MOLECULE 
i;  'HO,  III,  ANATOM,  I M,  4HNUMIER  ) 

00  9  J  *•  1  ,  NO  AT  « 

\  F<  NUMAT  M<  J  )  .  E  0  .  0  )  GO  TO  I 
W A  i  i'  E  (  4,3  )*  V  MftOL*  J  ),  NUMAT  M  J  i 
3  F  U  A  MAT  <  t  H  ,  9  T  I  ,  A  A  ,  9  1,19)  _  _ 

CO  NT  I  NUE 

i  H  I  S  SECTION  PAINTS  OUT  THE  ASSIGNED  WEIGHTS  OF  V  H  E  GROUPS 
ANT>  THE  II  ARAAY.  DESCAIPTION  OF  I  1  OUTPUT,  IHM,  N,J)  - 
DATA  FOA  COAE  A  T  0  M 1  M )  AT  N ■  l  AND  FOR  LIGANDS  AY  N  *  2  TO  N«9, 

COM  FRYS  OF  J  COIUMN  -  .1  •  I  CHEMICAL  SYMBOL  OF  COMPONENT, 

J  *  2  GRID  Aw-  COORDINATE.  J  ■  5  GA  I  0  COLUMN  COORDINATE, 
j  *  A  OIAfCtlO.  OF  Ll  Gawd  BOND,  J-9  80  NO  TYPE,  J*  4  GA  0  U  A  NUMBER 

L*  4  CORE  ATOM. 

Will  ff  I  A,  •  I 

ft  FORMAT!//  1  HO  ,  A  T  I  ,  1  AH  TA  0  UP  STRUCTURE  AND  COMPOSITION 
1  /  /  I  H  ,  I  5  3  ,1  5  H  GAO  UP  GROUP  CHEMICAL  S/MftOl  GRID  A  0  ft)  GRID  CO 


1//IH  ,  t  \  1 ,  ISA  GAO  UP  GROUP  CHEMICAL  S/MftOL  GRID  A  0  ft)  GRID  CO 

2LUMN  BOND  BONO  GROUP  NUMBER  /lH  ,  2  1  I  ,  ft  9  M  N  U  M  B  t  A 

1WEIGHT  OF  COMPONENT  COORDINATE  COORDINATE  YECTOA  YVPf  OF 

A  LORE  ATOM  > 

oo i v  n«i , act 

L  *  i  I  (  M,  1  ,  I  1 

WRITE!  4  ,  J  1  )  M ,  rO  L  WT  (  t  ),II(  M,  1,7  >,  I  «1  M,  1,3  ),  I  *  (  M,  1,4) 

11  FORMAT!  IK  ,  7  7  R  .  I  1  ,  9  I  ,  I  9  ,  I  I  I  ,  A  A  ,  t  I  ,  I  9  ,  T  *  ,  I  ft  ,  7  7  I  .  I  9  > 

N  F  «  *  0  M  i  M  ?  •  l 
00  l  9  N*  f  ,  NF 
I  ’lK  A,I,I  ) 

WP»Tf(  4,  i  3  lSvMROU  1  ),1  I  1 1  M,  N ,  I  > ,  J  *7  ,  4  ) 
t  j  FORMAT*  I  M  ,  ft  4  I  ,  A  ft  ,  FI,  |ft,7l,  |},  71,  IS,  31,  IN,  ftl.  If) 

19  CO  NT  |  Ik* </t 

WR  I  I  E  I  4  ,  t  El 
IT  FOR  MAT (IN  ) 

!  ft  CO  NT  I  NUE 

.0  IF  r.JNS  STRUCTURES  ARC  PRESENT,  THIS  SECTION  PAINTS  OUT  THE 

NUMBER  OF  COMPONENTS  IN  EACH  RING  AND  T  Hi  IP  (ACuP  N  u  M  P  E  A  S  ■ 

IH  IRC  E  0  0  )  A  E  T  U  A  ft 

00  J  T  J  -  I  ,  J  A  t 
U'MUl.n  )J  .  I  a  I  NGI  J  J  I  ) 

3)  FORMAT!///  In  2ftI,llNAlNU  NUMBER,  13.  in  I  S  ,  I  3  ,  i  0  h  "I  nliMO  I 
ft*  4  I  R  I  NG4  J,  I  )  ♦  1 

WAIT  C  (  4  .  3ft  H  I  A  I  ft  &  (  J  ,  N  I  ,  N  '  I  NF  ) 

19  F  o  p  MAT  I  I  HO  ,  7  1  3  ,  3  ft  H  GAO  UP  NUMBERS  OF  A  I  N  l  C  0  *S  T  |  I  u  I  N  T  S  *>  ,10*19 

I  IH,  )/(  IH  ,  4 I  I ,  l 0  *  *  I ,  I  H ,  )  )  1 

3  I  CO  NT  I  NUI 

A  r  T  UR  • 

E  NO 


PR  I  NT  1 
PRINT! 

PR  I  NT  1 
PR  !  NT  I 
PRINT! 

PHI  NT  l 
PR  J  NT  f 
PR  I  NT  I 
PR  I  NT  1 
PR  I  NT  | 

PR  I  NT  | 

PR  I  NT  1 
PR  I  NT  1 
PR  l  NT  1 
PR  I  NT  I 
F  R  I  NT  | 

PR  I  NT  I 
PR  I  NT  I  i 
PR  1  NT  l  I  *  — J 
PR  I  NT  1  I 
PR  I  NT l  1  4 

PR  I  NT  1 
PA  I  NY  ! 

PRINT! 

PR  I  NT  1 
PA  I  NT ! 

PR  I  NT  1 
PRINT! 

PR  I  NT  1 
PR  1  NT  l 
FA  I  NT  1 
PR  !  NT  I 
PR  I  NT  | 

PR  I  NT  I 
PR  I  NT  1 
PRINT! 

PR  I  NT  I 
PR  I  NT  I 
PA  I  NT  I 
PR  I  NT  | 

Ml  ATI 
PR  I  NT  1 
PR  I  NT  I 
PAINT! 

PRINT) 

PRINT! 

PR  I  NT  1 
PRINT! 

PRINT! 

P  R  I  NT  1 
PR  I  NT  ! 

PAINT! 

PR  I  NT  1 
PAINT! 

PR  )  NT  , 
mi  m  i 
PR  I  NT  1 
PRINT! 

PRINT! 

PR  I  NT  | 

PR  I  NT  1 


T''tf"74^  wp FTfF?  *.  i.Wf ,  fRUfliyU*' 


SUBROUTINE  PA  I  *T!(  UTIT  LI  > 

THIS  lUMOUTMU  OUTPUTS  T  Hf  T  I  T  LC  PRPCI0IN8  T  MI  PRINTOUT  OP 
NINE,  S  I  CO  NO-OR  OCR  I  NT  KM  A  CT  I  0  N,  ANO  CERTAIN  5VAAITRP 
CORRECTIONS.  THE  HM  NT  I T  It  IS  ALSO  RESET  TO  1  WREN  THIS 
ROUTINE  IS  EXECUTES 
NT  I  T Lt a  I 
WRIT  f (  A,  I  > 

t  r  or  hat  <  /  / 1  ho  ,  to  k,  r  i  mho  nsko  up  interaction  and  internal  ROTATION 
I  A  L  SYAAETAV  CONTR  !  iUT  IONS  /  )  Ht ,  a  I ,  *t  wT  V  P  C  ,  1  I  I ,  I  A  MR  I  N  ft  N  UNDE  A  0 

XR  ,  S  X  ,  *HMO  UNT  ,  l  I,  1  TNHC  ffT  OP  PCRNAT|ON,)K,  THENTAOPV,  t  AI,X6NNfAT  CAP 
JACITV  CO  (  P  P  I  C  I  E  NT  S  /|H  ,111,  1  X  H  SR  C  UP  N UNDER ,  I  71,  A  MR  C A  L ,  i  0  I  # 

AfHCAL/DIC  « , f 1 , p h C At/ DE t  « , I  I ,  I t N C A L/ 0 C S  f • *  X ,  I  X  ,  I t H C A L / D K 6 
$1  I,  IXmCal/DIO  « • • H I 
RETURN 
END 


I  ♦  PIE  ? I  E , • f - I i 


a  is  cm 


C  2  . 

C 

c 


C3  . 
C 


Ch  . 

c 


SuftMuTINl  A  I  $  E  T  A  <  MO  I  F  ,  UK  ) 

THIS  5  u#*  o  ut  i  hi  sits  thi  ring  mmv  ibc  AND  also  ados  thc 

RESIDUAL  NON-BRANCH  HI  HS  A T 0 MS  TO  ALL  TH(  CHAINS,  IF  THf  F I  A  5  T 
CHAIM  ATOn  OEFJNSO  WAS  A  NO  M-  IA  A  M  C  H  AIMS  ATOM  AMO  NC  TERMINAL 
CORE  ATOMS  AA(  present  m  THC  MOLECULE.  THESE  ACSIOUAL  atoms 
W|  A  f  NOT  AAEVtOUSLV  INCLUDED  IN  The  CHAIN  DEFINITIONS. 

I  NY  E  GCA  WC  I  8 M7  (  »  ) 

D  I  ME  MS  I  0  N  NA  LO  C<  Nt  ) 

COMHON/BLAI/WCI  6HT  ,  M  W &T  (  B  )  ,  MO  l  WT  (  100  >  ,  1  I<  100,  5  ,  B  )  ,  NC(  100  >,«CC 
CGmmON/ALRS/IAINGI  AO,  SO  )  ,  I  MAT  E<  >0 ,  BO  > ,  N«(  (00  >  ,  I  B  C  (  100  ),K0MIL00  >, 

1  I  0  B  A  (  100  1,  1  B  <  1  00 , 0  ) ,  1  A  6,  NO  BA 

COMAON/BLKA/NBCl  AO,  AO  ) ,  NIS  <  AO, 2  I,  NIK  40,10  ),  I  A  C,  NONFUS,  IKCTOT 
EQUIVALENCE  <NALOC<» 

SET  AIMS  AAA  AV  IBC. 

OOi  OI.IAC 
LF«IR  I  N  61  A,  I  1*1 
DO  J  L«2,  LF 
«  C  *  1  A  I  N  6(  «  ,  L  ) 

I  »C(  AC  )>l 
i  CO  NT  I  HUE 
*  C  3  N  V  C  (  1,1  > 

I  F  <  rtOIF.f  Q.O.OA  leciio.ro.o  OH.HCdCl. 

FIRST  ATOM  ON  f  [  *  S  T  CHAIN  IS  A  AING 
»(G  fl  AND  NO  TEAM!  NAL  CORE  ATOMS  ARE 


GT  .  2  )R  I  T  uR  A 

SRCCIFS  BUT  NOT  A  CHAIN 
CO  NT  A  I  NE  0  IN  MO  Ll  C  ULE  . 


FIND  CHAIN  LIE  THAT  IDENTIFIES  AING  K 
K  *  I  B  C  (  A  C  > 

LI  I*  NA  LO  Cl  A  ) 

NBA  «  NBS  C  LC  I  ,  2  1 
I  F  <  MBA  .  CO  .  0  )A  ET  URN 

CHAIN  ATOMS  EIIST  IN  RING,  f  1  HO  NUMBER  OF  NON-BRANCH  ATOMS 
JOIF  TO  BE  AODEO  TO  ALL  CHAINS  (IF  ANA). 

JOIF>IRING(K,I  )  N I I <  LXI,MGA  I 
I  F  (  JOIF  LC  .  0  )A  ET  UA  N 

ADD  THE  JOIF  NON-BAANCH  AING  ATOMS  TO  ALL  CHAINS  ANO  C  H  A  N  Gf 
NBS  ANO  N  B  E  ACCORDINGLY. 

Ml  *  N 1 1 (  Lil,  NBA  |*| 

00  11  L  * !  ,  L  X 

IHL.Nf.LUHO  TO  * 

CHAIN  L  IS  RING  IDENTIFIER  CHAIN  MOVE  THE 
IN  ARRAY  NBC  CO  A  A  C  S  P  0  <  7  I  N  6  TO  CHAIN  L  JOir 
MF  «  NBH  L  X  I  ,  NBA  ) 

MI *  MF*  I 
00  1  M«I,MF 
MS  *  MX-  t 
MY  *  MX* J 01  F 
NBC(  L,  MV  )■ NBCI  l,  MI) 

CO  NT  I  NUf 
GO  T  0  B 

CHAIN  L  IS  NOT  RING  IDENTIFIER  CHAIN 

in  array  nac  corresponding  to  chain 


FIRST  MF  ELEMENTS 
1.0  C  AT  I  0  NS  . 


MO  YE 
JOIF 


ALL  THE  l Lf MINIS 
10  C  AT  I  (1  NS 


ME  >  NBS (  L,  I  > 

MI*  MF*  I 
DOT  M" I , MF 
MI*  Ml-  I 

nv • mx«  j  di  r 

N  0  C  <  L,  MY  >«  NBC<  l, 

CO  NT  I NUK 

NBS (1,1  >*  NBS I  L,  1  >• J  0  I  F 

STORE  THE  ADDITIONAL  ‘REMAINING)  *ING  ELEMENTS  IN  l"f  fl*‘ 
JOIF  LOCATIONS  OF  NfC  C 0  A  *  I S A  0 N P I  N G  TO  CHAIN  L 


Ml  | 


Ml*  Ml 

DOB  M* I  ,  J  01 F 
MI «  Ml*  I 

NBCI  L  ,  M  >*  I  A  |  N  G(  *  ,  Ml  » 

CO  NT  I NUf 

NBA  A*  NBS (1,11 

00  11  N*  1  ,  NBA  A 

NBIt  L,  N  )*NBI(  L,  N  )•  JOIF 

CO  NT  I NUK 

AIT  URN 

(  NO 


A  ES I TA 
A  ES  C  T  A 
PESETA 
A  IS  f  T  A 
A  IS  C  T A 
R  ES IT  A 
A  ES  CT  A 
AES  f TA 
A*S  KTA 
A  ES  ETA 
ACS  ETA 
AES  ET A 
A  ES  E  1  A 
PESETA 
ACS  I T A 
RESET  A 
HIS  ETA 
RESET  A 
ACS  ETA 
A  I  S  E  T  A 
PESETA 
PESETA 
PESETA 
R  CS  C  T  A 
R  f  S  E  T  A 
A  ES  E  T  A 
PESETA 
A  f  S  C  T  A 
H  f  S  I  1  A 
A  I  S  I  f  R 
PESETA 
RESET  A 
PESETA 
RESET  A 
A  I  5  I  T  A 
A  FS IT  A 
RESET* 
A  ES I T  f 
A  I  S  I  1  A 
peseta 

PESETA 
PESETA 
A  (  S  (  T  R 
R  IS  l  f  R 
PESETA 
PESETA 
PESETA 
PESETA 
PESETA 
PESETA 

A  I  S  I  T  A 
A  I  S  (  T  A 
A  E5  ET  A 
PESETA 
PESETA 
PESETA 
PESETA 
PESETA 
PESETA 
PESETA 

PESETA 
PESETA 
PESETA 
PESETA 
PESETA 
PESETA 
A  IS  I  T  A 
PESETA 
PESETA 
A  IS  I  T  A 
PESETA 


01-  J  I 


104 


1 . 

IVMOUMHI  A  J  NG<  LI ,  Lft,  «*  ,  1  |M  > 

A  r  NS 

X  . 

c 

THIS  SulftOUflttl  OfTIRRJttCft  I  F  A  SIMILAR  RING  WAS  NOT  PUVlOUlLT 

A  1  NO 

s . 

c 

lOINTIMID.  IF  NOT,  THE  GROUP  HUFtEM  OF  T  M|  RING  CONSTJTUINTS 

A  1  N  6 

4  . 

c 

AM  STORED  IN  AH  A  A  >  |AIN|.  IF  ft|N|  If  A  OUMItlM,  IT  IS  NOT 

RING 

1 . 

c 

USIB. 

A  1  NS 

* . 

01  At  NS  10  N  MO  4.0  C(  4#  ) 

AING 

T  . 

C0nFlQN/tlKt/!RiNS(40,lt>,lnATl<9O,89),«W(  100  )  t  I  fe  C  (  100  )  ,  *  J  N  (  100), 

AING 

•  . 

11064(10“  )  ,  I  »(  \  00  ,  •  >,  I  A  »,  NO  40 

AING 

4  . 

C0f.*0N/«LX4/MftC<  40,90  >,«tl(4t,S),NlI<  4  0,10  >,  IRC,  NO  NF  US,  1  A  C  T  0  T 

RING 

t  t  . 

tOUl  VALINCI  (  NA  LO  C<  l  ),lNATl(ll4T)S 

'  I  N  6 

1  t 

Cl 

0 

CHCCA  IF  IDENTICAL  NINO  MAS  ALAfAOV  HID  IDENTIFIED  ANO  S  T  C  A  F  D 

A  I  K  4 

1  f . 

c 

]N  (AIMS  AAAAV.  IF  SO,  0 E t C T C  AlNfi  AND  IF  ThI  CHAIN  IS  ALSO 

RING 

i  a . 

c 

EOUAL,  DCLITI  CHAIM  AS  WELL. 

RING 

i  *. 

NALT«L*“M 

AING 

i  * . 

f  F-MALt*  1 

AING 

t  * . 

I  F  <  IAC.  10.9)00  TO  4 

h  I  N6 

r-  it. 

09  T  L  L  ■  l  f  I  A  C 

AING 

s  • . 

I  F(  1  A  1  NB(  LL,  1  )  .  »r.  NALT  )  10  TO  T 

AING 

i  4 . 

c 

A  I  N  6  LL  HAS  SANE  NUMGIA  OF  KING  «EM*£AS.  TEST  17. 

AING 

it . 

1 1  *  LA 

A  I  NG 

t  \  . 

c 

AA  c  AIMS  NlftlCAS  The  SANE  IlCfFT  positioned  in  reverse  oadea 

AING 

r  11 

OOt  A  ■  t  ,  A  F 

A  I  NG 

ii 

IF<  IRI  NC<  LL,  A  ).  HI  .  NGC<  Ll,«l  >  >60  TO  S 

AING 

**• 

ft • ■« 1-  1 

RING 

L  t» 

9 

CO  NT  f  NUf 

RING 

X  4  . 

c 

MS.  AA  |  TN|  TWO  CHAINS  THE  S  A  HI  LENGTH 

RING 

t  T  . 

LI  NS  LO  ei  LL  > 

RING 

1  • 

I  F  <  N  AS  (  III,  1  >  ME  .  LA*  1  )  A  E  T  (JA  N 

AING 

l  4  . 

c 

vis.  if  thiae  aac  no  chains  in  adoition  to  the  rings,  go 

AING 

14  . 

c 

TO  ?  OTHERWISE,  continue. 

RING 

1  1  . 

I  F  <  NOS  (  L  I  1 ,  1  >  EO  .  1  a  i  NCI  l  L,  t  >  >  CO  TO  t 

A  I  N6 

at . 

A  1  -F  1-  1 

RING 

aa  . 

c 

AAC  THE  MAAlNOd  OF  THf  CHAIN  COAPO  NEATS  THE  S  A  HI 

RING 

r  ** 

00  4  J • 1  ,  I  1 

RING 

19 

1  F  <  NOC(  L  I ,  J  ).  NE  NO  C(  LIS,  J  J  lift  UAH 

RING 

*“  14  - 

4 

CONT  1  NUE 

AING 

a  t 

c 

VfS.  SIT  *■»-!  WHICH  OElfTfS  CHAIN  FOAHATION  LI 

RING 

i  • . 

t 

A  A  “  -  1 

AING 

14  - 

ft  ET  Uft  ■ 

AING 

49 . 

c 

NO  AA(  THC  RING  COMPONENTS  THf  SANK  MCIFT  FOR  Id  AS 

RING 

41  . 

c 

INVERTED  AHD  DlSALACCO  *V  0 A(  IN  TH(|A  STORAGE  0*0(1 

RING 

4*  . 

1 

ni'LA-i 

RING 

r 

004  A  *1  ,  IF 

RING 

44. 

I  F!  I  H  J  NGI  LL,  A  )  Nl  .  NtC(  LI,  At  )  )  GO  TO  T 

RING 

1  '* 

A  1  ■  A  1  -  1 

AING 

*“  44  . 

4 

CONT  1  NUf 

RING 

4  T  . 

A  CT  UA  N 

RING 

*“  44  . 

1 

tOMT  1  NUI 

RING 

44  . 

Cl 

e 

AING  IS  NCW  STORE  ThC  TOTAL  NUAIl*  OF  COMPONENTS  (NAiT)  OF 

RING 

94 

c 

RING  IAC  IN  1  A  |  NG(  I  A  C,  1  >  4  A  0  THI  GA  0  UP  AuAll  1$  OF  THESE 

RING 

f  1  . 

c 

CO  HP  0  NC  NT  S  IN  I*ING(I*C,A)  F*0*  «■!  TO  N  A  1 1  *  >  . 

RING 

9  t  . 

4 

|  A  4- | ft C*  1 

RING 

9a . 

c 

AAC  7  M  (  .  |  00  AMT  RINGS  PACSINI 

AING 

*  4  . 

IF(  IRA.  LI.  U  ISO  TO  )• 

RING 

9  9  . 

c 

VfS  OITEAHINK  IF  SO A|  ARC  NOT  UNIQUE  |F  $0,  GO  TO  10 

RING 

94  . 

c 

OT  H|RW|  M,  HIT.  ' 

AING 

9  T  . 

CALL  LESSEN!  1  R  Cl  ) 

RING 

9  •  . 

ifmac.lt.iaciigo  to  »• 

RING 

9  4  . 

1  I  *  ft*  1 

RING 

4  •  . 

I  ft  C* 1  ft  C*  1 

RING 

4  1  . 

AIT  URN 

RING 

41 

c 

STORE  RING  DATA  IN  t*l Nfi  AAAAT. 

RING 

41  . 

1  9 

I9C+IAC*! 

RING 

4  4  . 

■  1  ■  ■  « 

RING 

4* 

i •  i  nii  i  a  c,  i  >•  wai r 

RING 

r  *♦ 

DO  1  1  « • 1 ,  Mr 

RING 

1  *F 

1  A  |  MI  Jft  c,  ■  )•  NACI  1 1,  c  1  > 

RING 

L  4* 

t  1 

•  i  »■  i  ♦  i 

RING 

44 

NA  10  C<  1  A  C  >•  l  I 

RING 

ro . 

A  (  7  Uft  M 

RING 

1 1  . 

I  NO 

RING 

1 4  mi  r»  »  ii  }i 


s  *m 


subroutine  samc(<c,«i,«2,im  i ,  cit  > 

S  AHC 

2  . 

C 

This  S  UI70  UT  I  Nf  STORES  ALL  T*£  rfNTINENT  IDENTIFICATION 

S  AHC 

) 

c 

VARIABLES  FC*  ANY  T  NO  IDENTICAL  LI  G*NDS  .  IF  ONE  OF  T  M [ S  l 

S  AHC 

9 . 

c 

L' GANDS  NAS  MIN  IOCNTIFIIO  PREVIOUSLY,  IT  IS  4VPASSCO  ANO 

S  AH( 

9  . 

c 

ONLV  The  VARIABLES  for  thi  cthkr  ligand  are  STORED. 

S  AHC 

i 

integer  S  v  Hi <  9>f5VH»0L<a>,  £A  t  B  <  9  0  ,  B  t  I 

S  AHC 

7  . 

0  1  HI  NS  1  0  N  NCSA  NEC  4  ,  IOO  > ,  NOS  A  Rf  <  0,  100  l ,  NT  0  T  A  L  <  3,  ICO  >  ,  nA  S  T  <  4) 

i  AHC 

1  . 

COHHOh/ILNl  /NO,  NOS  ,  S  V  AT  ,  S  T  R»0  L ,  NO  MU  9  ) ,  fc  R  1  0 

$  AHC 

♦  . 

C0API0N/ILK3/IAI  N  ((  90,30  > ,  I  RAT  tf  <  90,40  >,  NW(  100  ),l  B  C  <  100  ),  IQNt  146), 

S  ARC 

)  0  . 

1  1  0  4  R  <  100  > ,  i  II  100,4  ),  IF  6,  NO  IS 

S  AHC 

1  1  . 

COPnON/»l«t/N»C(  40,  90  I,  NIS(  40,2  )  ,  Nil  1  40,  20  >,  IRC,  NO  NF  US  ,  JR  Cl  0  T 

S  AHf 

1  2  . 

EQUIVALENCE  (RCS4AII  1,1  >,6Ain<*»,«»2>>,<N0S»HfM,>  >  ,  GR  I  0  C  N  ,  1  9  >  >  , 

S  AHC 

1  3 

II  NTOTALT  1,  1  >,  GRID(  9,  70  >  ),<  HR  S  T  (  I  ),  N»I<  19,20  )> 

S  AHf 

1  9  . 

Cl 

0 

SIT  9F 

5  AHC 

1  9  . 

N  F  *  NO  S  A  HE  <  l  ,  R  C  ) 

S  AHf 

1  4 

C2 

0 

have  OTHER  LIGANDS  OF  KC  MEN  OfTfCTEC  WHICH  ARC  IDENTICAL 

S  AHC 

l  7 

JF<NF  CQ.O)tO  TO  : » 

S  AHC 

1  1  . 

c 

YfS  OITCRAl  NE  IF  N|  OR  « 2  IS  A  HONG  T  «  l  S  €  00  SO  RV  CHECH  NG 

S  ARC 

1  9 

c 

The  STORAGE  SUBSCRIPTS  foa  *1  AND  «?  ,  NAH£LY  Nil  ANO  Nil, 

S  AHC 

2  0 

c 

MIS  ItS  THE  AAAAV  CONTAINING  THE  STORAGE  S  UlS  d|H  S  OF  THff 

5  AHf 

2  i  . 

c 

IDENTICAL  LIGANDS  WHICH  WERE  J0E9TIMID  P R E  V  I  0  US  L V. 

S  AHC 

*  2 

H|  >  0 

S  AHf 

2  3  . 

«2  •  0 

S  AM 

2  4 

009  « • 1 , *F 

S  AHf 

2  3 

I  F  t  N  1  1  NC  "A  S  T  1  *  >  >  GO  TO  1 

S  AM 

2  4 

HI  •  « 

S  AHC 

2  7 

GO  T  0  9 

S  AHC 

2  4 

r 

I  F  (  N  2  2  NE.  HRSTU  )1(0  TO  9 

S  ARE 

2  3 

h2  «R 

S  A  HE 

3  0 

9 

CO  NT  I  nuE 

SIR  f 

3  1  . 

I  F(  HI  GT  O  >50  TO  r 

5  AHC 

3  2  . 

1  F<  HI  CO.  0  >60  TO  11 

S  AHE 

)  3 

c 

N2  lOENtlf  IED  PREVIOUSLY.  SET  OaTA  FOA  N| 

S  AH| 

1  9 

N  CS  Mill  NF*  I  ,  N  C  >»NI 

S  AHf 

1  » 

HA  S  T  1  *  F  ♦  1  >  *  «  |  1 

S  AHC 

3  4 

Hall 

S  AHC 

1  7  . 

60  TO  0 

S  A  HI 

3  a 

7 

I  F  <  Hi  GT  0  >A  |  T  '.'A  N 

SAM 

3  a 

c 

II  IDENTIFIED  PArvfO‘J$lY  SfT  D  » V  *  FOR  N*. 

SAM 

*  o 

NCSAHIl  *  M  1  , 1 C  1*12 

S  AH| 

9  I 

HR  S  T  1  N  F  *  1  >  *  *2  * 

S  AHf 

N  1  *  N  | 

S  Ml 

** 

a 

NOS  ARf  (  1  ,  K  C  >  * • 9  *  I 

S  AHE 

c 

1  I  NO  LOCATION  OF  PREVIOUSLY  IDENTIFIED  ATOH  IN  «LSAH|  ARRAY 

S  AM 

1  9 

DO  f  J»l  ,  «7 

S  A  Hi 

9  4 

IMM  [8  ICS*RIU,ICMG0  TO  10 

S  AHE 

9 

CO  NT  I  NUC 

S  A  HE 

c 

STORE  RE  All  NOE  1  OF  VAHlAlirS 

S  A  HE 

9<J 

1  0 

II*nOSahE<J*2,«C> 

SAM 

9  0  . 

NO  S  AM  <  N  F  •  J  ,  N  C  >  •  1  1 

i  AHC 

9  t 

NIOTALI  H,lCl»N?DT»L(  1  1  ,  « C  >*  1 

S  ARE 

A  I  T  uR  N 

S  ARE 

c 

NO  «»  ANO  Nl  WERF  NOT  1  Of  NT  |  »  U  0  Ml  YIO  US  IT  AS  IDENTICAL 

S  A  HE 

S  * 

c 

IlUANOS  S»ORf  T  m  |  |  A  1  Of  N*  IF  (CATION  VM  j  MlfS 

*>  A  HI 

9  9 

l  I 

NOS  *nfi  |  ,  1C  1*17*1 

S  ARC 

NOSAHtT  2  ,  N  C  I'NDS  Mf  1  2,  NC  >♦  1 

S  ARE 

1 1  *  n;>s  a  hh  2  ,  n  c  > 

1  AHf 

9  a 

NOS  AH|t  1  1  '  1  ,  1C  >  •  1  1 

S  A  Hi 

NOSAHIt iF»n,iCi,II 

S  AHf 

4  0 

NCS  AHfl  1  I  ‘  1  ,  NC  > •  ■  1 

S  AHf 

4  l 

■  CS  AHU  ir*I,lC  IMl 

S  AHf 

4  t 

HA  S  T  1  «F  •  t  ) • ■  1  1 

Sah| 

4  3 

p»  s  n  « f  •  i  >  ■  a  1 1 

S  A  HI 

4  <* 

NTOT  All  ||,ACmNT0TAUM,AC>*2 

S  AHE 

4  9 

A  1  T  UA  N 

S  AHf 

4  4 

1  M 

S  A  Hf 

>i  ->• 


S  CAN 


n 


i . 
i . 

A  . 

t  . 
A  . 
7 

I 

9  . 
I  0  . 

1  1  . 

\  2  . 
1  1  . 
1  A. 
I  *  . 
I  A  . 
1  7  . 
1  9  . 

1  9  . 

2  0  . 
2  1  . 

2  9 
2  <. . 
2  * 

2  A. 

2  r . 

i  • . 
29  . 
1  0  . 
I  I  . 
12  . 
J  1  . 
5  9. 
5  9 

3  A 

3  7  . 
1  •  . 
39  . 


Cl  . 

c 


AT  ,  RR,  HA  ,  MU*,  ft  ,  I  I  Aft  ) 

-*US  SuiAOuTfNC  LOCATES  AMO  IDENTIFIES  ALL  AT  G  R$  10  NOE  0  TO  THE 
CONE  AT  0  A  OF  tftOur  AT  WmJCH  HAVE  NOT  VET  9EEN  SCANNED  AND 
STOAES  PERTINENT  DATA  OF  EACH  OF  THESE  LIGANDS  IN  I  1  ARRAY.  IT 
ALSO  A  I  9  A  A  AN&ES  DATA  OF  GROUP  IT  IN  II  A*RAV  5  9  THAT  p  AT  A  OF 
CORE  SPECIES  ARE  STORED  FIRST  ,  FOLLOWED  AY  THE  DATA  OF  N0H-CORC 
S  PE  Clift  . 

INTEGER  S  V  RI<  A  ) ,  S  V  R90  U  9  :,  GR  I  01  *  •  ,  9  t  > 

I  NT  E  61  R  WEI  6*T<  f  ) 

COFIAOF/ll*  WNO,  N0  5,SY*«fftVR»0L,N0van*J,  GRID 

C0RRQN/9LI2/NEI  6  NT  ,  RWGT  <  9  ) ,  AO  L  WT  (  100  » ,  I  II  1  00  ,  9,  9  >  ,  NC<  >00  >  ,  A  C  C 
CORAOM/9LK)/!ftIN6<  99,19  >,  I  ART  ft\  99,90  ) ,  NW(  109  )  ,  I  I  C  (  100  )  ,  ■  0  N(  !  0  0  I, 

II  ORA  <  100  l,ll(  100,9  ) ,  1  ■  §,  NO  9R 

C0RH0N/»IA9/NDAT«,NURAT«(9  >  ,  A9C<  99  ) ,  AlS  '  2  I,  JM,  JY,  LF  l  A  GS  ,  L  F  l  A  G  6 
INITIALIZE  P»S  AND  find  10  N  P  DIRECTION  FROM  CORE  AT  0  A  RT  10 
PARENT  ATOM. 

AS  *0 

N2«NUN*9 

I F(  NZ  GT  .  ft  )NZ*NZ~I 

start  SEARCH  AND  IDENTIFICATION  CYCLE. 

00  1  J  ■  1  ,  T 

FIND  TEST  10  MD  DIRECTION. 

N I • N l>  J 

ITINILT  i >ni«ni-9 

FIND  T  A  ANS  FOR  RAT  I  0  N  COORDINATES  FOR  THIS  90wb  DIRECTION 
CALL  AS S  I  6N<  Nft ,  A ,  L,  A  0 ,  L 0,  )  I  , JF  > 

I  F  <  J  I  GT  J  F  I  40  TO  1 

ft  ft  ■  ft*  ft  9 
L  I  *  L*  L  D 

I  F<  GR  I  01  A  I ,  LI  >  •  E9  .  S  YAIC  A  >  )  60  TO  t 
TEST  LOCATION  IS  NOT  9LANR. 

I  F<  A*  .  LI  .  J  >  SO  TO  9 

CICES5IYE  LIGANDS  PRESENT  IN  GROUP  PRINT  ERROR  RTSSACE, 

SET  ERROR  F  LAG,  AND  ff  HT  . 

HR  I  T  f<  4,1  )  A  T 

I  FORRATl//  1  HO  ,  1  1  I  ,  93  H£  «  CESS  t  YE  N  U  A  W  R  OF  UGANOS  AftOUT  CORE  ATOR, 
U*»,19H.  CASE  TERRI  NAT  10.  ) 

I  E  A  A  »  | 

RET  URN 

LOCATE  AND  IDENTIFY  NO  N- 90  NO  $  V  R90  L  . 


SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
S  CAN 
S  CAN 
SCAN 

S  CAN 

SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
S  CAN 
S  CAN 
SCAN 
$  CAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 
S  CAN 
SCAN 
SCAN 
SCAN 
SCAN 
SCAN 


A  CALL  to  N0<  ft  I  ,  L  I  ,  ■  0  ,  L  0  ,  J  1  ,  J  F  ,  I  ■<  AT  ,  AN  ,  9  >,  1  |RR  > 

SCAN 

*2 

IF(  1  fM  10  .  1  IREToRN 

SCAN 

CALL  1  OC NT !  Ht ,  ft  I .  L » ,  R,  I  ERR  > 

SCAN 

9  A 

1  F  (  1  t  R  R  EO  IIRETURN 

SCAN 

AS 

C 

STORE  DATA  OF  LlGANU  IN  ARRAY  II. 

SCAN 

A*  . 

!l(lT,RA,t  )  • r 

SCAN 

A  7  . 

|  I  (  IT,  RP , 2  >■«  « 

SCAN 

99  . 

I  I  <  ft  T  ,  RR  ,3  1  ■  L  1 

SCAN 

A  9  . 

I  I  <  ft  T  ,  RA  ,  A  )  •  N  1 

SCAN 

9  9 

C 

IS  LIGAND  ALSO  A  COM  AT  0  R 

SCAN 

9  1 

NRU*tI<NT,R*,4) 

SCAN 

•  J 

CALL  NUR9IA(HHU,  NJ ,  ft  I ,  LI,  RP  ,  *  *  * ,  l  «  t  ,  «  D,  ID,J1  ,  J  F  ) 

SCAN 

9  3  . 

I  F  (  RP  E  9  0  )  GO  TO  1 

S  CAN 

9  A  , 

C 

VIS,  IT  IS.  INCRERCNT  NC  ANO  R5  . 

S  CAN 

9  9 

nc(*t  »»ir.uT  )*> 

SCAN 

9  4  . 

RJ  »  RS  ♦  1 

SCAN 

9  7  . 

c 

HAS  LI  GAND  RUN  SCANNED  PREVIOUSLY,  THAT  IS,  IS  L  1  CANO 

f  AR  T 

SCAN 

9  9 

c 

OF  RING  SVSTtlS 

SCAN 

9  9 

|F<  inATIHI,  11  1  19.  9  >  GO  TO  II 

SCAN 

t  9 

c 

YES,  IT  i;  01!  FI  I  REQUIRED  0 -T  A  f*OA  I  RAT  I  . 

SCAN 

4  1  . 

Ill  AT,  RA  ,  4  }•  1  RAT  II  I  1,  LI  1 

SCAN 

41  . 

J  it  CT  ,  RS  >  *  1  RAT  l<  11,11) 

SCAN 

4  1  . 

c 

OfllTl  AT0RCS1  IN  SvRtOl  1  I  1  ft  T  ,  HR  ,  1  )  F»C  R  ftl'MTR. 

SCAN 

4  A 

CALI  Sun»Tnl|I<«T,RA,|  -  1  ,  IURFT  R) 

SCAN 

4  9 

c 

INCREMENT  1  R  (  ft  H  0  CONTJNul. 

S  CAN 

4  4 

I  A  G-  1  A  6*  1 

SCAN 

4  7  . 

GO  TO  2 

SCAN 

49 

c 

11  GAND  NOT  P  Aft  T  Of  RING  S»ST|R  ftSSlGN  NEW  UPOuP 

SCAN 

4  9  . 

C 

NUPIIM  ICC)  TO  IT  AND  STORE  DATA  FOR  Th|S  C*GuP  IN  1 

SCAN 

7  0 

c 

5  F T  |  RAT  ft  , 

S  C  A  N 

»  » 

II  ft  C  C  « ■ CC* 1 

SCAN 

7  I 

i  n  i  rcui  PO  HO  TO  it 

SCAN 

7  3 

WR 1  T  |  i  4  ,  1  1 9  1 

SCAN 

7  A  , 

1 

10  F 0  A  RAT (  / / 1  MO ,  S 4  ,  14HNURIER  OF  AtlGwIO  CO«l  ATOAS  CfCIlOEO 

CASE 

SCAN 

0 1  -  1  • 
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CANCN 


$UA7»0UT!NC  S  C ANtNI  K  CftO  ,  «  C,  *  CM*T  ) 

this  subroutine  computes  the  atomic  composition  or  all  li  sands 

•  UNDID  TO  CHAIN  ATOM  KC  ANO  1ST  AILISMJS  T  Ml  SIMILARITIES  Of 

these  lj ganos  providing  kc  is  not  a  king  atom. 

I  NT  £  6£A  wci  SHT  {  f  ) 

INTCGIA  PEAT  A  Cl  N,  1  00  »,  P(N  U  •  <  A,  1  10  ) 

OlntNSiON  KT0T<»),JM<|»0>,U6AN0(f,*#l00> 

CO  MHO  N/  ■  LA  2 / WE  I  GMT  ,  Mb  GT  <  A  ? ,  MOLWTI  ICO  I,  I  81  100,  S  ,  A  ) ,  NCI  1  00  ),  ACC 
COMMON/  •  L  A  3  /  I  A  |  NG(  AO,  30  I,  I  MAT  I  (  $0,  #0  J ,  NWi  100  >,  I  1C'  100  ),«0N(  100  ), 

1  I  n  »A  <  100  i ,  l  t  <  100,0),  I  A  8,  NO  IN 

C0MM0N/»L**l/N0C<*O,50  >,  NAS  £30,2  ),  NH<  40,20  >,  »  A  C,  NO  Nf  U$  ,  IACTOT 
COMMON/OLR9/NDATM,  NUMAT  M(  9  »#  M»C(  3G  ),  MIS  <  2  ),  J«,  J  V  ,  LFLAGS,  LF  L  A  S  6 
IGUt  VALENCE  <«T0T(1  t,t»<42,0)),<LlGANO(  1,1,1  ),  »  MAT  I<  2,  I  )>, 

M  J  I A  (  |  ),  IMAT  1(1,  A3  )),<A|[ATKCJ  1,  1  ),NIU2,9)),(AEAlIG(  1,1  t, 

2  «MC  Nt,  I  t  I  ) 

0  INITIALIZE  V  ACT  1  A  A  L  E  $  .  IF  (CNEST  DOES  NOT  EXIST,  SET  !N*0. 

I  N*  1 

I F I  X Cwf XT  EG .  I  001  11 N»« 

I  F  I  H  C  A  C  .  C  0  1900  )  60  TO  I 

13  KC  IS  NOT  THE  FI  AST  ELEMENT  IN  T  H |  CHAIN.  THfAEFCAE  *  CIEF 

EXISTS.  COMPUTE  ATOMIC  COMPOSITION  OF  LiGANO  XCICF. 

I  N*  I  N+  3 

001  J»t  ,  NDATR 

LI  C  A  N  0  (  J  ,  I  N,  A  C  >«m  OT  C  J  > 

1  CONTINUE 

_ PEAT  K  Ct  !  N,  K  C  )«K  ClIF _ _ _ _ _ 

3  1  F  (  NC(  K  C  )  E0  «0  N(  K  C  )  *  GO  TO  7 

5  AC  MAS  NO  N“  C  0  A  £  ATOM  LIGANDS.  COMPUTE  V  Mf  1  A  ATOMIC  COMPOSITIONS 

LS  £  N Cl  AC  )♦  I 
LF«  AO  NC  A  C  >♦  1 
00  9  l*«LS,LF 
1  N»-  I  N*  I 

?  E  A  T  A  C<  I  A ,  X  C  )  •'  “  I  I  (  X  C  ,  L  8  ,  I  » 

CALL  SUM  *T  Ml  IX(AC,LK,1  )  ,  I  ,  LI  C  A  N0(  1,  IN,  ACM 
CALL  S  UMAT  M(  I  X  <  A  C  ,  1 1 ,  1  !,1,AT0T<  I  11 
9  CONTINUE 

>  STOAt  ATOMIC  COMPOSITION  OF  ATOM  K  C  IN  KTUT _ 

J  CALL  S  UMAT  Ml  I  I<  A  C,  I  ,  I  >,  1  ,  KTOTI  1  )) 

I  FI  A  CN| XT  CO .  1  OOO  )  GO  TO  1  I 

I  KCNfXT  EXISTS.  COMPUTE  ITS  ATOMIC  COMPOSITION. 

DO*  J*  1  ,  NOATM 

II  GANOI  J  ,  I  ,  A  C  )■ NUMAT  Ml  J  )-  A  TOT  I  J  > 
t  CONTINUE 

PEAT  A  Cl  I  ,  K  C  > -  A CNE IT 

>  _ Set  vaaiailes  j  ia  and  pealii. _ 

II  J  IA (  A  C  >■  I  « 

00  11  J  •  I  ,  I  • 

3  P  E«  L  I  61  J  ,  A  C  >  ■  J 

>  IF  1C  IS  NO  <  AING  ATOM,  OCTEAmINC  WHICH  OF  ITS  LIGANDS  AA  | 
IDENTICAL  TO  WHICH  (IF  ANY). 

ifl  IICIXO.EO  OICALL  S  E  I  UM  X  C,  *  C,  I  ,  I  ,  0  ,  J  8M  A  C  I*  l  ,  J  »«  (  «  C  I,  I  ) 

ACT  UA  * 

END 


S  C  ANCK 
S  C  A  A  C  H 
S  C ANCM 
S  t ANCM 
S  C ANCM 
S  C ANCM 
S  C  AN  CM 
$  CAMCM 
S  C ANCM 
i  C  ANCM 
S  P  ANCM 
S  C ANCM 
S  CANCM 
S  C ANCM 
S  C ANCM 
S  C ANCM 
$  C ANCM 
S  C ANCM 
S  C ANCM 
S  C  ANCM 
S  C ANCM 
S  C ANCM 
S  L  N  C  M 
S  C  ANCM 
S  C  ANCM 
S  C ANCM 

I  C  A  N  C  M 
S  CAWCH 
<  t  *  N  C  M 
S  C  ANCM 
S  C  ANCM 
S  CANCN 
5  C  ANCM 
S  C  ANCM 
S  C  ANCM 
S  CANCM 
S  CAWCH 

S  CANCM 
S  CANCM 
S  C  ANCM 
S  C  ANCM 

$  CANCM 
S  CANCM 
S  C  ANCH 
S  CANCM 

S  CANCM 
S  CANCM 
S  CANCM 
S  CANCN 
S  CANCM 
S  CANCM 
S  CANCM 
S  C  ANCM 


If  7(1  7)  G . 02*11 
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SETUP 


29 


I 


AY*0  SETUP 

11*1  SETUP 

C3.0  START  EICCUTION  OF  CYCLE  THAT  ESTABLISHES  THE  SlnlLARITIES  OF  SETUP 

C  THE  VARIOUS  UGANOS.  SETUP 

002  T  N*1,N000I  SETUP 

ACIMCAOOHNI  SETUP 

NIH*MULTl*N  SETUP 

002T  N*NI , NQOOI  SETUP 

MC2=MC«002I Ml  SETUP 

0021  L«l,lP  SETUP 

LGI«PCALIG(L,MCI I  SETUP 

C  At  IS  A  lIHAAO  BONDED  TO  ACI.  SETUP 

AI*PERTACIlGI,ACI  »  SETUP 

A  I  *  I  ♦  MULT2*t.  SETUP 

0023  CII  MP  SETUP 

lG2“PEr»l  101  M,AC2  I  SETUP 

C  «2  ISA  LIOAUO  IONOED  TO  BCt.  SETUP 

A2*PEATMn  L02.MC2 I  SETUP 

IF! FI .fO.AC2-OA.A2.EO, MCI  100  TO  II  SETUP 

C  NEITHER  Ml  COR  A!  ARE  EOUAl  TO  THE  CORE  A  TON  TC  WHICH  THE  SETUP 

C  OTHER  IS  BONDED.  SETUP 

FEDUAIO  SETUP 

C  CHE  CM  whether  The  ATONIC  COMPOSITIONS  OF  LIOANOS  Ml  ANO  Ft  SETUP 

r  ARE  EOUAL.  SETUP 

DOT  J • I . NORTH  SETUP 

IFI  L  I0AN0I  J.LOI  .MCI  I.NI.l  I0RN0I  J.lOt.ACI  MOO  TO  T  SETUP 

aequal*feourl*i  setup 


-  M. 

3  001  A  *  1 , 1 

SETUP 

"* - 

19. 

MRS!!  A  >  =  A 

SETUP 

MRS/I  A  >  =  M 

SETUP 

IT. 

1  CONTINUE 

SETUP 

SUBROUTINE  SETUP!  MCXOOI , MCIOOt , NOOOI , N0Q02 ,MUL Tl , LF, AF ,HUL?f I  SETUP 

C  this  SUBROUTINE  PROCESSES  THE  CONPRRISON  OF  LIGRNOS  BONDED  TO  SETUP 

C  THE  SANE  OR  DIFFERENT  CENTRAL  CORE  ATONS  BV  FIRST  COHPARINC  SETUP 

C  THEIR  ATONIC  COMPOSITIONS.  IF  I  I  I  THE  LATTER  ARE  IDENTICAL  ANO  SETUP 

C  (2)  THE  LIGANDS  ARE  BOTH  NON-CORE  TYPES,  THE  LIGANDS  ARE  SETUP 

C  IDENTICAL.  IF  (!>  IS  TRUE,  BUT  THE  LIGRNOS  RRE  CORE  ATONS  SETUP 

C  THEIR  IDENTITY  NUST  BE  CHECKED  FURTHER.  SETUP 

INTEGER  SVHXIIT.SYHBOUf  1, 6RI0I  f  0,  Bl  I  SETUP 

INTEGER  HEIGHT!  9  >  SETUP 

INTEGER  PERTFCIR,  1001, PERLISIR,  1001  SETUP 

DIMENSION  FCIOOll  3  I.FC1002I  I  ),ASAH€<  1,  3,2  ), LI8AN0!  9, R,  100  3,  SETUP 

1PIRH!  100  I, NOSAME!  1. 500  I.NTOTAL!  1,  100  I.NRS H  1  I.MRSZI  R  I  SETUP 

COMMON/BLF I /NO, N05, SVHX, SYMBOL , NOVALI  9  I.GRID  SETUP 

COMMON/8LK2/UE1UHT,NWOTI  9  I.NOLWTI  1001,11!  100,9,61, NCI  1001,  ACC  SETUP 

COMMON/BLF 0/ 1 R 1 NG!  NO,  36  >,  IHR7XI  90,  BO  l,NWI  100  3,  IBCI  S  00),  AON!  1001,  SETUP 
IIOBRI  1001,19!  100,0  >.  IRQ.NOBR  SETUP 

COMMON/BLKR/NBC!  60,90  I.NBSI  60,t  I.NBXI  60,20  I,  IRC.NONFUS.  IRCTOT  SETUP 

COH«ON/BLM9/NOATH,HUHATHI  9  ),HBC<  90  I, MBS!  2  I,  JW,  J  V,  LFLAOS ,  LFLRSt  SETUP 

EQUIVALENCE  I  A  SAME!  1 , 1 , 1  I.  IB!  1R,  I  1 1,1  LIGAND!  1,1,1),  IMRTKI2,  I  >>,  SETUP 
MPERTKC!  1,1  >,NB>!  2,9  I  >,!  PEBLIGI  1,1  I, NBA!  12,11)  1,1  mRm<  I  I,  IB!  62,  5  >  I,  SETUP 
21  NOSAMEI  1,1  I,  GRID!  9,91  I  ),<  NTOTALI  1,1  ),  GR 1 0!  1,  TO  » ),!  NASI  I  I  >,  SETUP 

3NBX!  20, 20  3  1,1  NR S2I  I  ),  NIX!  21,  20  1 1  SETUP 

C1.0  INITIALIZE  VARIABLES.  SETUP 

RCXxRCXOOH  I  I  SETUP 

001  K>I,S  SETUP 

NOSANEI  K,KCX  1*0  SETUP 

NTOTALI  R,KCX 1*0  SETUP 

D01  J*I,R  SETUP 

ASRNEI  J,A, I  1*0  SETUP 

KSAMEI  i,X,2  !  =  0  SETUP 

I  CONTINUE  SETUP 

00100  Rzl.ACC  SETUP 

100  NR  Ml  X  1*0  SETUP 

C2.0  ARE  LIGANDS  TO  BE  COMPARED  BONDED  TO  SAME  OR  DIFFERENT  CORE  SETUP 

C  ATOMS  SETUP 

IFI  ACTOOII  I  I.E0.ACI002!  I  I IGO  TO  )  SETUP 

C  DIFFERENT .  SET  ARRAYS  ACCORDINGLY.  SETUP 

002  «=l,1  SETUP 

MRS  1 1  A  )*A  SETUP 

MRS2I A  >*A*1  SETUP 

l  CONTINUE  SETUP 

GO  TO  9  SETUP 

C  SAME.  SET  RHRRYS  ACCORDINGLY.  SETUP 


23- 


1 


i  r; 


<01-16 


' '  ‘  rfl'npr 


‘"^>,uiiii  nuin 


« _ _ 

1 

n-  r». 

r  CONY  1 NUI 

SETUP 

H 

14. 

mKEQUAt.Nf.51Q0  TO  23 

SETUP 

123  ■— 

C 

Vf»  THEY  Ml. 

SETUP 

rj. 

1FIN0002.EQ.  1  >00  TO  1 

SETUP 

•  — 

I  T4. 

C 

TWO  OA  MORE  CENTRAL  ATOMS  02  TYPE  KC2  ARE  IE  IMG  USED. 

SETUP 

•  0. 

Jl«N 

SETUP 

•  1. 

J*«N 

SETUP 

it. 

QO  TO  4 

SETUP 

4—| 

•  3. 

C 

ONLY  ONE  CENTRAL  ATOM  OF  TYPE  KC2  IS  OEING  USED. 

SETUP 

] 

•  4. 

0  Jl-L 

SETUP 

~T 

IS. 

J2*K 

SETUP 

t 

•  4. 

4  IF1K1.GT.0. ANO . K2 . GT . 0  >00  TO  II 

SETUP 

Tri 

»T. 

21  ANO  K2  ARE  NOT  QOTH  CORE  ATOMS. 

SETUP 

u. 

lF(KlvK2.EQ.0.0R.Kl.NE.K2  ISO  TO  23 

SETUP 

23“ 

•  4. 

c 

K 1  AND  K2  ARE  BOTH  IDENTICAL  NON-CORE  ATOMS.  VERIFY  THEIR 

SETUP 

40. 

c 

SINGULARITY  ANO  STORE  THEIR  IDENTIFICATION  VARIABLES. 

SETUP 

41. 

CALL  SAME!  KCI,K!,K1HRSI(JI  >,MAS2<  J2>> 

SETUP 

4*. 

60  TO  23 

SETUP 

23  — 

43, 

c 

K 1  ANO  K2  ARE  LIGANDS  WITH  COMPLEX  STRUCTURES.  TO  WHICH 

SETUP 

44. 

c 

IDENTITY  SET  00  XI  ANO  K2  BELONG 

SETUP 

43. 

II  IFIMRMIKI  1.E0.01G0  TO  13 

SETUP 

tH 

4*. 

c 

XI  FOUNO  IDENTICAL  PREVIOUSLY.  RETRIEVE  ITS  IDENTITY  SET 

SETUP 

4T. 

c 

NUMBER. 

SETUP 

49. 

1  1  *MRMT  K 1  1 

SETUP 

44. 

GO  TO  IB 

SETUP 

14- 

100. 

13  IFIMRMI  K2  1.EQ.0  1G0  TO  13 

SETUP 

IT— 

- 

101. 

c 

K2  FOUNO  IDENTICAL  PREVIOUSLY.  RETRIEVE  ITS  IDENTITY  SET 

SETUP 

102. 

c 

NUMBER. 

SETUP 

103. 

II3HKM4X2I 

SETUP 

104. 

GO  TO  IT 

SETUP 

1  T  i 

105. 

c 

NEITHER  XI  NOR  K2  WERE  FOUNO  IDENTICAL  PREVIOUSLY.  ASSIGN 

SETUP 

1 04 . 

c 

THEM  A  NCW  IDENTITY  SET  NUMBER  *  XV. 

SETUP 

102  . 

15  KVSKV*| 

SETUP 

* 

i  tot. 

1  l=KV 

SETUP 

104. 

i  r  r.nnt  xt  1*1 1 

SETUP _ 

110. 

14  HRM<  X2  )I|  | 

” SETUP 

111. 

XSAMEI  Jl, 11,1  l»| 

SETUP 

1  12. 

KSAMEI J2, 11,2  >*1 

SETUP 

IL  I  1  3 . _ 

21  CONTINUE 

SETUP 

-  1  14. 

2 T  CONTINUE 

SETUP 

113. 

C4 

0  DETERMINE  WHETHER  COMPLEX  LIGANDS  ON  XCI  ANO  XC2  ARE  IDENIICAl. 

SETUP 

114. 

1  FT XY.GT.O  1CALL  EQUAL!  XCXD01.KCX002, NOOOI , N0002 , MULT  1  IF  IF, 

SETUP 

111. 

IMULTI.KY.O  > 

SETUP 

lit. 

RETURN 

SETUP 

114. 

END 

SETUP 

P 
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mm 


SHIFT 


SUBROUTINE  SHIFT!  JC.AC.HELAQ) 

THIS  SUBROUTINE  SWITCHES  ORTA  OF  LIGAND  CONTAINED  IN  COLUMN 

SHIFT 

2. 

c 

SHIFT 

1. 

c 

J  =  2  OF  IXIJC.J,!)  WITH  DATA  OF  LIGAND  CORflE SPONOONG  TO  CORE 

SHIFT 

3 , 

c 

ATOM  AC. 

SHIFT 

5. 

INTEGER  NE1GH1I3) 

SHIFT 

4. 

C0MM0N/6LX2/UE1GHT,MWGT!  3  >,MOLHT!  100  1,  1(1  100,$, 6), NCI  100), ACC 

SHIFT 

T. 

COMMON/6LX3/IRINGI  30,  30  1,  IMAT  l<  50,  8G  1, NUC  1  00  1,  1  BC«  1 00  1,  AON!  1  00  ), 
IIOBR!  tOOl.IBI  IOO,B),IHO,NOBR 

SET  1 1! JC, 1,3)  EQUAL  TO  NEW  PARENT  CORE  ATOM. 

SHIFT 

a. 

SHIFT 

a. 

Cl 

.0 

SHIFT 

10. 

IX!  JC,  1,3  )-l  «  AC,  1,6  ) 

SHIFT 

it. 

C2 

.0 

FIND  LOCATION  J  IN  !X(JC,J,!>  CONTAINING  CORE  ATOM  DATA.  THEN 

SHIFT 

it. 

C 

SHIFT  DATA  FROM  COLUMN  Js|  TO  J. 

SHIFT 

—  13. 

0033  J*J,* 

SHIFT 

13. 

IF!  1XIJC,J,  6).  NE.IXIJC,  1,31)60  TO  33 

0032  LLS1 , 6 

SHIFT 

|-  13. 

SHIFT 

r  la. 

III  JC,J,LL)=1X!  JC,2,LL) 

CONTINUE 

SHIFT 

L  ii 

32 

SHIFT 

11. 

GO  TO  33 

SHIFT 

L-  iv 

33 

CONTINUE 

SHIFT 

20. 

C3 

0 

NOW  STORE  DATA  FOR  CORE  ATOM  |A(  AC, 1,4)  INTO  J=2  COLUMN 

OF  ir<JC,J,l>.  IN  SO  DOING,  HAXE  APPROPRIATE  CHANGES  FOR 

SHIFT 

21  . 

C 

SHIFT 

22. 

C 

VECTOR  DIRECTION. 

SHIFT 

1-23 

33 

0033  J:|,3 

SHIFT 

L  23 

33 

I  XI  JC, 2 ,  J  Is  1 XI  AC  ,  3 ,  J  > 

A S=  1  X(  JC,  1,2  ) 

SHIFT 

2*. 

SHIFT 

26. 

LS-IX!  JC,  1,3  ) 

SHIFT 

r  2f 

0036  L  =  3,5 

SHIFT 

[  20. 

IF!  1  X!  AC  ,  L,  2  ).  EO  .  AS.  AND.  1  X!  AC  ,  L,  3  ) .  F  3  .  L  S  1G0  TO  3S 

SHIFT 

2V 

36 

CONTINUE 

SHIFT 

30. 

30 

IX!  JC,2,3)-!X(AC  ,  L ,  3  )  ♦  3 

SHIFT 

31 . 

IF!  |X(  JC,2,3  ).GT.8)IXI  JC,2,3)=IX!  JC,2,3)-Q 

SHIFT 

32. 

IX!  JC,2,S  IMXCAC  ,L,JI 

SHIFT 

31. 

1X1  JC.2,6  l=IAIAC  .1,63 

RESET  VALUES  OF  IB  PERTAINING  TJ  JC  IF  MFLAG  IS  NOT  2ER0. 

SHIFT 

33. 

C3 

0 

SHIFT 

3S 

c 

MFLDG  IS  LOT  2ER0  IN  FIRST  SECTION  OF  PROGRAM. 

SHIFT 

36. 

innFi  ag.eo.o  ire  turn 

SHIFT 

31. 

IB!  JC,  1  UiX!  JC.3,41 

SHIFT 

3*. 

IB!  JC,  2  »  =  I  *«  JC,  3,6  1 

SHIFT 

33. 

IB!  JC,  3  )“l  X!  JC ,  5 , 6  1 

SHIFT 

30. 

RETURN 

SHIFT 

31  . 

ENO 

SHIFT 

D 


SORNGI 
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5,  SUBROUTINE  SOHfld  '  C  IGS, IGK, IGO,  I0SC1 S, 1C IS,CRUCHH, CISH.Cf SS  )  !0RN8I 

i.  c  this  susnuriNt  ct>Mr«oi.s  the  search  *or  oauche  »sb  cis  sornoi 

].  C  INTEB»CT  IONS  FOR  THE  CASE  WHERE  ONI  OF  THE  TWO  CENTRAL  RTOHl  50AN9I 

4.  C  1*1  OR  El)  IS  «  R I  NO  AION  RIIO  THE  OTHER  IS  NOT .  THESE  CIS  50ANG1 

5.  C  INTERACTIONS  REEL!  ONLY  TO  NQNDRQEiAT I C  MINOS.  THE  GAUCHE  SORMOI 

4.  L  INTERACTIONS  AEECV  TO  BOTH  ARGrtAT  IC  RNO  NONAROHRTfC  MINOS.  S0RN9I 

T.  INTEGER  SY(4X<4».$VH*0H»>,3RID(JR,,29I  SORNOI 

».  INTEGER  WEIGHT! 5 }  SORNOI 

4.  DIMENSION  NONGROI  44  !,E!NI  112, 2BR)  SORNOI 

10.  COMK0N/0L*l/t;0,I.0S,SY,<IX,  5VriOL,Nj»at«  5  I,  BRIO  SORNOI 

11.  C0nr.0N/3LRl/L'clGHT,E)U0T«  5  l.nOLWTl  100  »,  I  *1  100,  f ,  A  >,NCI  108  ».  RCC  SORNOI 

II.  COnnON/BLR  J/l  R  I  NO  I  40.,  30  I,  IflATEI  JO,  10  t.NMi  100»,1»CI  109  >.  TONI  1001,  SORNOI 

IS.  II03IU  1001,131  100,1),  SRG.NOSR  SORNOI 

14.  COr.nON/BLKN/MCl  40,10  >,NOS<  40,  *  >,N*II  40,10  ),  IRC,NONFuS,  IRC  TOT  SOBiVOT 

15.  EOU)  VALENCE  (NONAROi  l  l.lnATXI  2.4*>»,IRMI  XI  1,  1  >,GR10I4,1  >>  SORNOI 

14.  C1.0  INITIALISE  ARRAY .  SORNGI 

IT.  XF*2*XCC  SOUND; 

15.  SCI  «»I,KF  SORNOI 

I*.  M’ilKI,K>*0  SORNOI 

SO.  R:illll,ll>t  SORNOI 

It.  I  CONTINUE  SORNOI 

St.  RN*0  SORNGI 

23.  C2.0  START  EXECUTION  OF  RAIN  CYCLE  THAT  SEARCHES  FOR  GAUCHE  AND  CIS  SORNGI 

24.  C  INTERACTIONS  BETWEEN  f.IGANOS  IN  EACH  NQN-ARORATIC  RING  SYSTEM.  SOANSI 

25.  0021  K*l , TRC  SORNGI 

24.  JF»IASNG(  A,  I  >»l  SOOND! 

IT.  C  TEST  COMPONENTS  AND  NON-RING  LIGANDS  OF  RING  E.  SCRNGX 

21.  0015  1*2, JF  SORNOI 

25.  II*IRJNG<  A, J  I  SORNOI 

SO.  IF  *NCI A 1  )♦ I  SORNOI 

11.  C  DETERMINE  IF  XI  HAS  *T  LEAST  ONE  NON-RING  I.IGANB.  IE  NOT,  SORNGI 

12.  C  FIND  NEW  XI.  SORNGI 

11.  ISUPIA9  SORNGI 

15.  ITESt’O  SORNGI 

15.  002  1=2, LF  SORNGI 

34.  K2*!XIX1,L,4>  SORNGI 

.IT.  IFI  |GC< K2 5.GT.0  IGO  TC  140  SORNGI 

IB.  I TE  ST* I  SORNGI 

35.  GO  TO  2  SORNGI 

50RN3 


40 


.50  I  SIJ.'I:  I  SL'O*  I 


-  *1 . 
*2. 
*3. 
**. 
*5. 

*#- 

2 

C 

CONTINUE 

IFI  KOMI  X)  t.LE.NCI  Kl  1.  AMO.  ITC  ST.EO.O  >50  )0 
SET  STORAGE  INDICATOR  OF  K i  WHICH  IS 

11*0 

IFI  KOMI  K  I  !.ir.  1  'GO  TO  204 

IF!  ISU1-1  1200,202  .  1  5 

15 

USED 

IN 

SUBROUTINE  CIS. 

SOflN'ul 

SORNGI 

SORNGI 

SORNGI 

SORNGI 

SORNGI 

HI , 

200 

1  1  «~i 

SORNGI 

*t. 

GO  TO  20* 

SORNGI 

HU. 

202 

n*i 

SORNG  f 

50. 

c 

ClAfilfcF  CO»F  LlGftr.’OS  OF  ring  Atrr  *i 

SORNGI 

51  . 

205 

CO  1 5  L=*,LF 

SORNGI 

51. 

«2=lX<  K  1  ,4  ,4  > 

SORNGI 

5  3 

C 

DETERMINE  IF  K2  HAS  AT  IF  AS  T  ONE  WON- 

RING 

LIGAND.  If  NOT, 

SORNGI 

5*. 

t 

FIKO  Nf W  tl  . 

S04NGI 

55. 

isun-o 

SOHNGI 

54. 

miT  o 

SORNGI 

57. 

rF  =  f.C(  K2  w| 

SORNGI 

SI. 

DO?  1  2  FUl.Ftf 

SOniiGI 

5%. 

B3=I  K  A  2  <5,4  1 

SORNGI 

40. 

IFI  IDCI  KJ  I.GT.9  ICO  TO  210 

SO'IMGi 

4  1 

i  u  s  r«i 

SORNGI 

*  7  . 

GO  TO  212 

SORNGI 

43. 

7 »  0 

isu.uisunM 

scwnc.i 

4*. 

*12 

cc’inr.ui 

sonnai 

45. 

JF<  BOW  K2  >.4.f  .  F.Cf  '2  ).A^;0.  IffSV.fQ.O  KsO  TO 

IS 

SORNGI 

44. 

c 

SET  SIO.OAGt  INDICATOR  Of  K  2  WHICH  ts 

USf  c 

IN 

suBHOuriNf  cis. 

SORNGI 

47. 

12*0 

SORNGI 

4ft 

IF(  ROM  KJ  ».  tr  .  1  )f,0  70  211 

SOnNGt 

41. 

- . - 

|f<  1  SU:  1**  3  *21*,  214,  15 

son«'6i 

I  )50~, 

fe1 


20*- 

200- 


”j  2 02  — | 

_ P0" 


15- 


l»- 


il  1  4  ■ 


21. 


CO  TO  lit 


SORNGI 


*1*1 


<  4  1  ■*“  '‘'j  f 


vj  y.^  i  (swiwp*  'S|,  IP’  '!&*  ^WV^SWl  PfS§lp||jj 


wy»»™»TMiww’MM?'  F<*  WVf  7'*^  v 


f  «m  n  a.ot-Jt 


1 16 


•’tt  ,"-"ni»y;w  Trirr ‘«w 


'TWW«T'W*1  <R'  W^fpr"I3HST» « 


m 


Off"  Him  I  r  M«5r  tHtn}  t^i.  S  V«10l  :  !■  #  CP  A  I  *»r»n  if  m?T 

\.Z  ft  l  M  3  *s  *  *'  > , 

t  A  v  Fl  NO*  *1,3,  l,  W,  HIM,  *9  ,  l  t  «  f.  ' 

;  -  <  i  s»>  vO  t  mi  t  u*  n 

sit  vaw:a*hs  **  i*  awav, 
line,  i  i  >•  n 
line,,  i  f  t  >  *  ■ 
i » <  'c ,  . ,  3  >  •  t 
tUtt.l.-iMti 
i  w *r  it  « .  1. 1»  &  cr. 

iDtNTJf*  TGANUS  TO  CONE  A?  OH  Jt. 

Uu  i  CAN*  "£,  f*fi,  nil.  Nur.ft,  l. ,  I  C  M  VI  I 
/f  <  J  I*  H  f  9  :  ;*  If  v«*i 
UllCn.iMlikC^.H 

FffJO  PMrtAWV  f-PJC*»T  or  «C. 

t: fc i  *.  or  c?  Hi  (  *  c  ■ 

J  i  O  N  ■  1 

StT  vkf  MHts  Dtfruoi  i#  on  ion;;  fwdpimis.  or  «c 

I  F  <  H  C «  »  C  i  ■'  T  ,\l  ,lt ,  il 

_ _ *C  xuS  two  ON  NOW  C  COM  It  CAN OS 

MW  **  MW  «♦  t 

ww£{  MW  M.  1  l«n(  ,CM 
rt*c<  «w *,  i  >»r  t 

_ I  c  n  *  COM  T  (  ft  #1 1  N .» -j  >  TOW. 

I  CNI  I  J  I  i  »« ■  c 

ibiTIftllit  SCAN  •  AA  I  AtUV 
Nf*  1 
N»J*I 

CO  TO  3» 


J  -  •  N  C  «  W  C  ) 

ST  AWT  P»OCrJSINC  Crete  That  IOC  *»»  #  y  i  r  S  f(n«l  NO(M  or  mo  l*  *1/15 
oo  w  j  J  j  *  l ,  if 
NN*  nN«  > 

J  C  *  I  *»  '"  C  ,  J  J  ) 

MAS  COM  A  TON  i;  Iftri  !.v>NN(0  IFF^.f 
U  '  I  II  J  C,  I  ,  J  >  aL  I  06©  I  00  TO  3  t 

MS,  iTWOCTyWC  15  rrtCiNt.  SIT  I  T  J  . 

I  Tl»  I 

CO  *  ’>  M  * 

NO,  W  I  N  r  S  .  A  uf.T  jWf  not  r  f  T  f  Vi  Of  Hi  iC'NT.fY  l  I  G  A  N  0  S  Of 

nw  *  3 

CALL  S  CAM  J(,  mb,  nA,  |  ii  i  C,  Ml,  i  t,  I  li  «  t(  .JN.  /  I,  III  «  C,  An,  )  ?  I;  *  i 
I  f  i  I  t  A  »  .  I  6  :  JN  I  i  l(W  N 

I »  h  i.  is  no  t  )  -j  r  n-4  f  nt_  co  a  i  mot  r  o  s  i  »  i  r  >•  f  -it  v.  5  o  __ 

i  f  t  t  u  ;  r,  i .  *  i .  w*  hiic.i.incAii  SMifuc.ff.  »* 

l»  JC  I  5  M0«,  GC  TO  N3  0  T  *  l  A  *  i  S  (  .  *00  Slf.ONNC  A 

W*  J  CmT  CO  A  At  CT  i  C  *2 
IFINCI  JCl.lT  I  l  CO  TO  S3 

C*Ct  0*  l  f  Ai  (  «  C  ,  J  C  >  _ 

CO  N  T  1  N  C  ( 

riNi)  hFK  *  T  \i  W  T  C  |  *  P  W  0  1 1  S  5  J  It 
I  tf  v»H 
/  f  «  N  C  <  *  C  » 

fjiT  i  p  c;  Nt  .  r  com  atom  «c  mas  mcw  pwoccssfo  m?.a* 
ooii  jA*j,jr 
«:«?•<«  t*  v,  j  *  > 

oo  <t  r  1 1  •  i  i  s  ti«» 

I  r  (  A  L  KC  .  I  C  AM  l  i  >  >  GO  TO  At 
CO  MT  t  NUI 
CO  TO  •] 

MS  )•  C^HS  I  1  NO  «(  W  MC  If  NO  Nr  ,  f  !  NO  Cf  N  »»  *Nl  *•  N'f-r* 

‘Ul 

/  r  r>s 

CO  TO  *» 

NO  IT  -AS  -10  ?  . 

I  *'  «  t.  F  v  NOT  IN  !•,♦»{  At  i.  0  F  I  ATOM  POSITION,  F  II T  J  '  SO 


ir(r*'»C(»,rj  n  i  i  ntAii  si*ini«(,«i,f  v,i  > 

UT  TIM  MINI  WfJ.'.Ml  Of  0*0  gF  IF  f  , 

C»U  Of  l  T  »  |  1  *Cl 
C  » t  •  OIlHil  At,  Ml  U,  |  ,  11  t 
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118 


ll  m 

5  T  M( 

«*e<  ««  *,  i  « c  »•  i 

ITMI 

ratiaii,!  »•*  C 

t  T  ft  HO 

IC  IS  CHtl  H  »T0*.  Mir  Ml  CVKLI. 

»T  am 

if  i  cm  ?  I  m  »■  1 1 
It  ft  tl 

»t  IS  coat  »Ma. 


i *  iiurr  ii.iiio  to 

IT|t| 

IMlKfcC,!,*).  M.miicT«(\,inCRu  m'>ucc,UM,i  > 

•0  f  9  II 


»S  mnan.ll  •  »t0  T  3  l>l 

Mao  TOTimf  »l  M*NCK  #T0«.  If  *0*1  Mil!#! 


S  UMAT M 


SUBROUTINE  suture 

THIS  SuMDVTINt  A  S  OS  OR  SUBTRACTS  I  WMI  N  tM|  0  A  -  I  )  T  H*  »U«»f» 
or  EACH  ELEMENT  M1SIKT  IN  THE  CHEMICAL  SVMOt  REPRESENTED  6V 
M  TO  (fKOH)  T  HI  LOCATION  ASSltNEO  THAT  M»T|  CUL»«  f  L I  HI  NT  |N 
ARRAY  NUMAT*. 

Dl  HI  NS  I  0  N  NUMAT  PM  9  I 
COMMON/  BL«i/  NUHMlt  t  N  > 

TfST  SYMBOL  CMI 
t  F<  M.  LT  .  A  >§0  TO  A 

symbol  coot  is  a  or  criaier,  hcnca.  it  rcfaesents  multi¬ 
character  S  R I  Cl (S .  FIND  TNI  NUMBER  OR  EACH  ELEMENT  IT 
CONTAINS  ANO  ADD  (OR  SUBTRACT)  TO  (FROM)  COR  A  E  S  P0  NOl  N  6 
LOCATION  IN  NUMAT  M  DEPEND!  NO  ON  VALUE  OF  «F. 

Ml*  t  ♦<  M-  A  )•  t 
DOS 

Ml«MI«J-l 
NV*ftUMR R0(  Mt  ) 

NUMAT  M<  MV  t  a  N  U  M  AT  M(  MV  )*NUMFRB<  Ml*  I  >«RR 
CONT  I  NUt 
RE T  URN 

SYMBOL  REPRESENTS  A  SIMPLE  CLEMENT.  ADO  «R  KOU»L  TO  *1  OR 
-I)  TO  LOCATION  OF  NUMATM  THAT  COARISFONOS  TO  This  ELEMENT, 


NUMAT  Mi  M ) ■ ft  U  * AT  Ml  M  )♦ RF 

RETURN 

END 


S  UMAf  M 
S  umat m 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  11 M  A  T  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 
S  UMAT  M 


S  UMAT  M 
S  UMAT  M 
S  UMAT  M 


01  -  3  V 


SUBROUTINE  SYNRNGtNCN.IWSNC) 

THIS  SUBROUTINE  CONFUTE*  VMf  IITERNKL  RQTRTIONRL  SYNHCtRT 
NUNSER  OF  RR0HR7IC,  HONOCVCLIC  BENZENE-TYPE  STRUCTURES. 

INTEGER  SYN1I  N  ),  SYNBOLI  t  I.BRSOI  00,8B  > 

INTEGER  WEIGHT! 4  I 

INTEGER  PE  RTNCI  N,IOP  I,  PERU  (I  4,  10*  I 

OMENS  I  OR  NtENZI  RO  I.XCSRNEI  4.  1*0  I.NOSRHIt  *,  100  I.NTOTRLI  1,1001, 

IKJI  100  I.NPERTI  4  I.XCNOOM  l),«C«Otl*(  1 1.KROTI  4  I.HRTRI  *1  4, 1  >,NRROI  4>, 
£K*CRO(  4  I.KSETI  3  ).  JOONEI  II*  t.ERLIGI  4  I 
CONHON/BLN  I  /NO,  NOS ,  STMT ,  SYMBOL. NOTRt  I  9  I,  GR I • 

C0NH0N/BLN2/WE IGHT ,HWGT(  4  I.MOLMTI  100  I,  I  *1  I  00, 4,  4  I.NCII  00  >,NCG 
CCNnON/BLNl/INIHGI  40,10  >,  IRITII  SO, 00  >,N4M  1001, !*C(  100), NON!  1001, 
IIOBRI  100),  ISI  100,0  l.lRG.NOBR 

C0NN0N/BLX4/NSCI  40,00  >.NB$<  40.1  I.RBEI  40,  *0  *,  I  RC.NOHFUS,  IRCTOT 
COHNON/BINS /NORTH,  NUHRTHI  0  I.HBCI  4 6  I, HBSI  Z  >,  JU,  J Y ,  LFL R6S,  LFLRGS 
EQUE  YRLEMCZ  (  N8ENZ,  IR(  10,  I)  t,  I  K4EN2I  II,  IBI  *1,  I  I  >,l  XCSRHII  1,11, 
1GRI0I  4,4  2  )  1,1  NOSRHEI  1,1  I,  GR 1 01  R,  OR  I ).(  NTOTRLI  I ,  I  I.CRIQI  4,70>>, 

2<  PERTRCI  1,1  l,NBI<  2 , 0  ) ),  I  PERL  1GI  1,1  KNBII  R2, 1)  >  >,<  XRUT4  I  >, 

1NBXI  2,20)1, 14PERT*  I  >,NBXt  1,20  >  >,<  NRtRI  II  1,1  ),NB«(  30,20  >  1,1  KRROI  I  ), 
4N*X<4*,2Q>>,<NZER0I  I  ),NBXI  OR, 20  I  >,l  RJI  I  ),NBC«  1 ,  RO  I », <  JOONEI  I  I, 
ONBCl  l,R*  )),<*SET(  i  ),  III  TZ,B  )  1,1  (RLIGI  I  I.NBCI  1,473) 

ESERBLISM  THE  RING  PROPERTIES. 

IFI  IBCIKCXI.LE. IRC. RNO.NBENZ.EB. 1)60  TO  7 

RING  IS  FUSEO  OR/RNO  BENZENF-TVPE  RINGS  RRE  NOT  PRESENT. 


STM)  NS 

SVHRNG 

SYHRNB 

SVNRNC 

SYHRNB 

S  VHP  NS 

STNRNS 

STIRRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNS 

STNRNO 

STNRNS 

STNRNG  7- 

STNRNO 


20. 

24. 

27. 

c 

5  JW*5 

RETURN 

RING  IS  NOT  FUSEO  ANO  BFN2FNC-T VPE  RINGS 

ARE  PRESENT. 

SVHRNG 

SVHRNG 

SVHRNG 

1 

29 . 

7  KW=IBC<  RCI > 

SVHRNG 

20. 

c 

0E1ERNINE  IF  RTON  NCI  IS  R  COHPONENT  OP  ONE  DP  THE  BENZENE- 

SVHRNG 

30. 

c 

TTPE  RINGS.  IF  NOT,  RETURN  TO  0. 

SVHRNG 

r  31. 

DOT  N-l.NBENZ 

SVHRNG 

32. 

IFIKBENZIN).EO.XW>GO  TO  11 

SVHRN6 

11— 1 

*■  33. 

0  CONTINUE 

STNRNG 

30. 

GO  TO  * 

STNRNO 

30. 

c 

RTON  NCI  IS  R  COMPONENT  OP  *  BENZENE-TYPE 

RING  1  NW). 

SVHRNG 

34. 

C2 

.0  INITIALIZE  VRRIR6LES. 

SVNRNG 

r  J,‘ 

13  0010  NH, 4 

SVHRNG 

(RLIGI  MU# 

STNRNO 

30 . 

KRROI  N  1*0 

STNRNG 

L  50. 

10  KROTI  N  >»2 

STNRNG 

01  . 

NPiNCC«ZO 

STNRNG 

0010  NM.NF 

STNRNG 

L  4)  . 

1*  JOONEI  IT  1=0 

SVHRNG 

0014  «>l,l 

SVHRNG 

C  oo. 

14  R  5E T<  N  )*• 

STNRNG 

04. 

NS*8 

SVHRNG 

57. 

CJ 

0  EKECUTE  RING  CLRS 5 1 P 1  CRT  1  ON  CYCLE. 

SVHRNG 

-  0*. 

OOol  J*2, T 

SVHRNG 

55. 

RC- 1 R I  NG<  KW,  J  > 

SVHRNG 

00. 

NSlNSM 

SVHRNG 

51  . 

RRER T<  RS  >*RC 

SVHRNG 

02. 

1  f  (  NC<  RC  >-J  >17,21,5 

SVHRNG 

1  7  — 1 

*3. 

c 

NON-RING  ATOH  BONOtO  TO  RING  ATOH  RC  IS  A 

NON-CORE  ATOM. 

SVHRNG 

55. 

c 

RESET  PIRG  IP  LIGRNO  IS  NO. 

SVHRNG 

oo. 

17  KFFR«a-|*< RC, 5. 1 ) 

SVHRNG 

54. 

RRl  1  C, t  J-l  >*R4ERN 

SVHRNG 

*7. 

I  FI  |R<  RC,  5, 1  ).  EO.  0  IRROTI  J-I  )*| 

SVHRNG 

01. 

GO  TO  31 

SVHRNG 

*0. 

c 

NON-RING  ATOM  BONDED  TO  RING  ATOM  RC  IS  A 

CORE  ATOM.  FIND 

SVHRNG 

to 

c 

THIS  CORE  ATOH  1  RIB  )  IN  |I  ARRAY . 

SVHRNG 

1 1 . 

21  NF  =  NCl RC )* 1 

SVHF  ■* 

-  41. 

0027  Nd.NP 

SVNF  g 

41. 

RC,R,4> 

SVHR-?a 

45. 

IFI  IBCINNI.EO.OIGO  TO  SS 

SVHRNG 

n— i 

-  45. 

27  CONTINUE 

SVHRNG 

33  *PERN««N  SYERNG 

RJI  IN  l«J-|  STNRNS 

NRUOI  J-l  l«RN  STNRNO 

IP  «C  IS  ONE  Of  THE  IOENTICRL  UORNOS  OP  RTON  «N,  REOUCE  THE  STNRNS 
TOIRi  NUNSER  OP  IOENTICRL  UORNOS  OP  RN  IT  ONE.  STNRNS 

0030  NO ,  4  STNRNS 

I  PI  NCSRNEf  R.XHI.NE.XC  ISO  TO  II  STNRNG  So¬ 


il  RPR  l»  O'.'02-S* 


Wl«NOS»Hf!X»l,X«l 

NTOTALI  HX,AH  UNTO  TALI  HI,>H)-| _ 

»  CONTINUE 

C  IP  (M  IS  AN  OmiN  ON  «  NITROGEN  ATOH  ON  fi  NONLINEAR  CANNON 

C  ATON  QTHCN  f NAN  COI,  AEHT  A (.NO, 

IP!  I II  XN,  1,1  I. SO. 4)80  TO  ST 

_ ipi  ixixh,i,i  >.Nt.».ANp.umn.i,i  i.ne.aioo  to  n  _ 

1)0  XAOT!  J-( !•! 

_ SO  TO  ST _ _ _ 

34  CAl  L  LINEAR!  XC,XH.LINf,XJYNI 
IPI  LINE. CO. I >80  TO  ST 
ITS XSYN.NE.t >60  TO  116 
XAOT!  J-l »■-* 

_ C _ P  I  NO  NOS  I T  ION  OP  «N  (  XPEAA  >  IN  PERTXC  ARRAY  ■ _ 

3f  COIN  P»l,t 

IP!PEATXC<X,XC>.fO.XPCANIGO  TO  St 
St  CONTI  MIC 

_ 11  TO  I  _ _ 

3t  PENUel  l,XC)M  '  ~ 

A!  CONTINUE 

CA.O  SET  UP  THE  UGANO  IDENTITY  RETRIEVAL  ARRAYS. 

DOM  K-!,S 
XCXOOtlf  TMPEATIA1 
A)  XCI002IX  IMPEATIX*II 

0.0  OE TENTH NE  SIHILAA1TV  OP  THE  LIGANDS  IN  SET  >000!  VERSUS  THOSE 
C  IN  SET  XCI002,  AS  NELL  AS  THE  SIMILARITY  OP  THE  LIGANDS  IN  SET 

C  XCIU01  AND  IN  SET  XCT001. 

CALL  SETUP! XCXOQI.XCMROt.S.  1,0,1,1,01 

KClMCXOOllll 

XMI 

Kit 

_ HAUNTOTALI  I  ,XCI  ) _ 

54  IFINTOTAL!  I,KCI  I.EO.OIGO  TO  1A 
XF=NOSAH£l  I.XCI  I 
HAXT  =NOSAHEI  1,KC»  I 
0042  J?I,HA1IT 
XSMSM 

IFINTOTAL! J,XCI I.GT.HAX )HAX*NTOTALI  J.KCI  > 

0040  X  *  I , XP 

IPINOSAHE!  XM.XCI  I.NE.JIGO  TO  4t 
XCMCSAHEIX.XCI I 
IPIXC.GT.OI&O  TO  ft 
AH-XC 

IP!  lOONEINX  I.NE.O  )G0  TO  4t 
JDUNEIHX  IMS 
DOST  L«l,4 

IPIXALIGIL  I.NF.KC  IGO  TO  ST 

_ _ XAAOI  L  IMS _ 

ST  CONTINUE 

_ 60  TO  41 _ 

58  IPI JDPNCt XC*20  I.NE.O  IGO  TO  40 
JOONE!  XCMOIMS 
MIMJTKC) 

_ XAAOI  HI  (MS _ _ 

*  40  CONT.NUE _ 

_ 41  CONTINUE _ ~ _ _ 

4A  GO  TO!  44,411,  TO  I, XX _ 

44  XX«l 

CALL  SETUP! XCIOCI,XCIOOI, 1,3,1,1,1,01 
_ GO  TO  St _ _ _ _ 

41  XX*S 

call  SETUP! XCX001,XC<00t,l,  3,1,1,1.01 
PCIMCID01!  I  I 

_ 60  TO  SO _ _ _ _ 

TO  IPIHAI.EO.O  IAETUAN 

C4.0  OETEANINE  SVHHETAV  NUHOEA  OP  NINI  WHOSE  LIGANDS  AAE  A,t,C,8,l,P 
ASM 

DOTS  N*l,4 


SYHANO  I 

_ S  TWANG  1 

SVhn,.A  “  f 

SYHANO 
ST  HA  NO 

SYHANO  IT - 

SYHANO  30  — . 

SYHANO  I 

SVHANG  | 

SYHANO  *  ' 

SVHANG 

SYHANO  3ft  -J 

SYHANO 

SYHANO 

SYHANO  " 
SYHANO  3»-i 
SYHANO 

_ SYHANO  » 

SYHANO  " 

SYHANO 

SYHANO 

SYHANO 

SYHANO 

SYHANO 

SYHANO 

SYHRNO 

SYHANO 

SYHANO 

SYHANO 

SYHANO 

SVHANG 

SYHANO 

SYHRNG  ?•* - 

SYHRNG 

SVHANG 

SYHANO 

SVHANG 

SVnANG 

SVHANG 

SYHRNG  40 - 

SVHANG 

SVHANG  30—t 
SYHRNG 

SVHANG  « 

SYHRNG 

SVHANG 

SYHRNG  37— | 
SYHANO  _ | 

SYHRNG  "*  ' 

SYHRNG  4 

SYHRNG  ■*” 
SYHRNG 
SYHRNG 
SYHANO 

SYHANO  *  . 

SVHANG 

SYHRNG  Tt— [II 
SVHANG  *■  " 
SVHANG 
SYHRNG 

SYHANO  *  '  . 

SYHANO 

SYHRNO 

SVHANS 

SYHANO  * 
SYHAN# 

SYHANO 

SYHANO 


IT  APA  TS  1.01-34 
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■C.T— r  \rmrKn-\wj><-< 


iith;  r  v.u  wf 


141. 

142. 

143. 


in  «A*0(  N  t.MC  .0  )G0  TO  1 1 
■  S*<S*1 
«UR0<  «S  UN 


SvrmNQ 

IvtianG 

$y*RNG 


144.  n  C0*T|n<j£  SvnRNG 

IM.  C  ri^o  NunacR  of  sets  of  iquai  uganos,  wuniER  of  liganos  in  svpang 

Ml.  C  CACH  SIT,  AND  LOCATION  OF  CACN  UGANO  IN  RIN6.  JtnANG 

l  Al .  NC*«3  S'TAPJS 

Ml.  COTfc  IM.I  SVflRNG 

149.  R  S  >0  SVf.RNG 

150.  iriRAftOt J). CO. 6.0ft. J.tJ.aiGO  to  7*  Svr.RNG 

m.  Nim^sufiM  srnRNG 

ill.  «S*R9»t  SVFlRNG 

19).  f.AIR  I  It  *S,NU4)*J  SYPRN6 

994.  *  I  *  J  *  1  SYPHNtJ 

191.  0074  Rs*t,4  SWUNG 

191.  IR4RAR0IK  I.F.C.RARQC  l  MGO  TO  74  SVflRNG 

19  7.  «S>KS*t  Svr.RNG 

196.  fIMftf  If  RS,NUn)sR  SVFIRNG 

196.  RASOMMO  Svr.RNG 


MO. 
Ml  . 


74  CONTINUE 
RSCTI  f.UHI*A$ 


SfnftNG 

Srpflf;G 


S2. 

43. 

44. 
44. 
14. 
47. 

MS. 

141. 


I  70. 
171  . 
17?. 
17J. 

74  . 

I  79. 
I  74. 

17  7 

Fm. 

I  74. 

180. 


74  CONTINUE  S»rRNG 

ARRANGE  CLCr.CNfS  IN  ARRAY  flATR|I(J,K>  fN  OROER  OFF  INCRf  AS  I F»3  SYP.RNG 
MAGNITUDE.  Svr.ANG 

007|  K=»,SUA  SYPAN6 

NlrtSCTm-l  Jvr.RNG 

00  7  9  Ns|,NF  5rnRr<6 

J»*N  SYF.flNG 

_ JJ 1  *  N  *1 _ Svf'RNG 

77  |F7j"?.fO.'l  ?0  IS  ’  Str.RfJG 

IFtrafftl  I(  J|  ,1  l.LC  .MAM  I  It  MGO  TO  71  SYP.RNG 

TR  I  K  J  1  ,  4  I  $tr.R7.G 

f  At.4  1  ft  J1,R  l-PATR  I  It  J2,lt  I  Svr.flNG 

rMft!  x<  J2,C  >- ni  Jvr.RNG 

j  1  x  ji  -  i  Straus 

J?  * J 1 • 1  Svr.RMG 

GO  TO  77  $ YPflNG 


In 


in . 
M2. 
111. 


71  CONTINUE 

GO  60S  170.10,  104,  134,  154,  MO  >,"AI 

_ PAKIf.  U-1  fi'jrstfl  0  F  EQUAL  LIGA’lOS  J  N  A  GIVEN  517  «2. _ 

•  0  If  INUJW  >i~70, 82,44 

TWO  SITS  UF  IOUAL  1  I  uANOS .  If  ST  FOR  ArC,  F*0.  S  Aflf)  C 
7»:OFOLO  ROTATIONAL  S  VP"E  T  R  V  A30uf  RI.ANC  OF  RING. 


M  A  V  (■. 


184. 
135. 
184. 
187. 
18  8. 

1 1 57 

in. 

117  . 
ID. 

1  4  . 
SIS  . 


•  2  If  t  *Sf  T<  1  > .  r.e  .  2  .on  .PATH  |  it  7,  1  )-flA?R|Xt  }  ,  1  l.NC  .  2  .  AP.O  ■  PATRI  it  2,  I  »- 

IPATRI  It  |  ,  |  I.  7.F  .4  )Rf  TU^N 

|F(  I  St  H  2  ).M  .2.04.P4TR|I(J,7  I*  PA  TRIM  |,2».Nf.  2  .AND  r*TA|Il?,21- 
InATRIII  I  ,2  I.8.C  4  JRETU^N 
JI*C7C*0< I ) 

)2*U(  R0<  2  ) 


U. 

17  . 

I  4  5  . 
144. 

ht ! 


TOT. 

9  , 


§4  IF  t  rnjli  )\  1 .  f  3  .  I  .OH.r.RJJ(  J  ?  F.EQ.I.UR.J2-J1.NC  .  J  >  °  E  J  u  ^  N 
8»0S*iCs2 
At  7 1;8 N 

C  THREE  SMS  f.F  f 0<i AL  LfflA'iDf.  TEST  FOR  Arfi,  F-0,  9-f. 

c  om-H'f  if  s  has  ruoroio  rotat i  o  n  a  l  svr-.jiRt  asout  the 

C  _ _ RfA-.s  OF  THt  ^17'G. 

14  ■ S • 0 

Jl  =0 

001?  J  :  t ,  9 

IFt  raTR  I  It  >,  J  )-r4fRI  It  »,  J  l.NE  .  2  ANO  .MAM  I  IT  2,  J  1-PAT  R  I  it  1  ,  J  ).  F.F  4  1 

K.o  to  «l 
I  s :  <  w 
r.o  to  io 


*  Ml  K  I ,  J  I.T.E  -  3  ICO  10  12 


19  |Mf  \lA|ll7.3t- 
Jlsrxni  si  I,  J  » 

•  ’  If  R  I  It  | ,  J  1 

90  C.C  ,  I  I  i.vl 

ifi KS.ri./.fo. ji .’ E.otr.o  to  is 

T  {  S  7  701  AiT,  fi->E.  C  >  F  . 


Sir.RNG 
SYr.SNG 
Svr.RNG 
SYr.nr.c 
SvrRT.G 
S  Yr.R  P;5 

S  Yf  T.  *.G 

S v r 

5*r  i'.', 
Svr.R'.r, 
SYf.RFiG 

SYM/  G 
Sfprl  r.r, 

S»f  .if. 
Srr'«f;G 
SvrRf.'G 
SvrRT.G 
_Svr;»»:G 
st.-  V?.2 
Syf  v.G 
Sr^  if.G 
Sy-  !*.G 
Svr.iTiG 
S»r,-*Tt& 
S Y f  I'.G 

Sy:  .»f.G 
Sy.  Gf.G 

$vr  4r,G 
Sy.  l».G 
S Yf  W;0 
Svr  if.1 


la— i 

ia 


AM  f  j  i.  ci-31 


1  70 
1  TO 


124 


m  RftTft  I  ■<  t,j  1 1<  .StSJ  TO  II 

1*  CONTINUE _ _ 

14  NQSHC*2 

RETURN _ 

II  11*0 
JIM 

0010*  J»l.l 

iFif.AT^i  u  if  i  ,-nrsm  1,  j  i.M.  s.AUD.ftmjit'  i, )  »  nURi ic  l ,  j  i.nc .s  > 
ICO  TO  109 

60  TO  10* _ _ _ _ _ 

100  iUnATRIH  2,  J  >-P.ATA|I(  |  J  >.N£  .1  >A£TU*N 

_ jm _ 

102  CONTI NUt 

lf<<S.EQ.2.R%0.  J1  .10  3  ICO  TO  14 

RETURN 

c _ _ Mr  sc*  or  rotm.  in  a  given  set  n. _ 

IflA  |flHU.Vf;C.i  UETU*N 

C  ICO  SIVJ  OF  EQUAL  LIGANDS .  f I  NO  JU  WITH  TWO  EQUAL  LlGANOS 

C  I  IF  RNV  I. 

tFIKSCH  1  ».N£.  1  ICO  TO  |0I 
RIM 

lf<  «S£Tt  Xl.M.I  ICO  TO  12C 
HIM 

60  TO  1  1  * _ _ _ _ 

ns  m  rsc?77>.re,2  >ai  turn 

**«» 

If  C  *5£  Tt  2  »  «.£  .  S  )A£1uFN 
M  1 2 

I  TEST  FOA  Arjrl,  FrO,  0  *‘/0  f  HAV£  TWOFOLD  ROTATIONAL 

: _ Svr-CTRY  r:PuT  FLAM  of  Plf.G.  _  _ 

112  J2«R*ird<l>  ” 

If  i r.AT.n  k  *  ,n*  »-r.AiRi  u  i,m  i.iq.*.  Ar.o.  J2-n*TR|i<  i,n*  >.ro.  i  >ao 
ITO  III 

If  ( PAIR  m  2,r*  >-r  WA|si  I.r?  > .  fif  .  •»  >n£Tu«N 

iFirsinni ),/ 2  >.fo.  i  2#n2  >.(0.  nr.o  to  ill 

_ I  f  <  r  a  t  n  1 1  <  l,r2  )  /  e  2  o  r  .  r  a  r  r  1 1  (  j  ,r  ?  >-J  2  .  >.{  .  I  )Rt  turn 

III  Jl  t.’.atr  i  iil/i"* 

IffiROTl  Jl  » .  F*C  .  l.A*.  O.RAOM  Jl  I.NE  .  I  ICO  TO  14 

_ RETURN _ _ _ _ 

»20  if  t  aSctc  2  ».►  ? .  J  i‘i  u?n 

TEST  »CA  A  -  6  C ,  0 :  E  ■  f  .  2  A*.D  (  HAVE  TwOFOlO  ROTATIONAL 
Jtr.rfTRY  A10UT  flam  OF  AIM  . 

AM 

IFunMMu2.ni  i-r  atn  m  I ,  n 1  i  .t  (  .  \  .  c  a  f*a  tr  5  i  <  ),n|  >  -  n  a  T  a  I  H  2,ni  i. 
IM.I  I  .  AO  irUMiij  r|  j-ruiw|  i*  |rn|  ».m  |  .  qa  .  r  a!  a  |  i<  i,  m  >- 
2  r  a  t  r  i  it  2 ,  n  |  > .  t.t  a  i  .  a  \  5 .  i  r.  a  T  A  |  it  2 ,  n  |  i-ha  ih  i  k  l.ni  » . Nt . « . OR . 

JOATAI  U  l.ni  1,  |#ri|  }.hi  .  I  MGO  TO  12* 

,1 2 s  r A T  A  |  i(  1,  F2  I 
60  TO  111 

1C  ST  F  C  A  A'C  f  AM)  I  D  F. 

I  2  x  I  f  l  r  4  I  ft  |  I  <  2  ,  n  1  i-riiMK  l.ni  IM  f.ci.FAIAlit  J  ,  n  i  »  r  A  t  ft  |  m  /  ,  «  l  > . 

11, E  .  2  HE  TURN 
Jl  :riAT  A  I  K(  |,M  | 

JlsriTMK  ».p*2  » 

__  IfIF'OM  Jl  >M  2  0  *  f^OTlJll.l.I.IKO  TO  ISO 

121  To  S  '  C  *  4 

_ RETURN  _  _  _ _ _  _ _  __ 

119  I.DS’.C’O 

HI  IVAN  ! 

F»i|f:  t  f  a  of  I  CUM  i  f  C  a  ‘  o  S  in  a  c  I  w  r  n  SIT  ■  *. 


SvnRNQ  [11- 
S  T  n  A  N  G  I 


Jfr.RNG 
ITNRNQ 
IvnawG 
Srr.RMi  I3‘ 
SvnRNQ 

STAIR  NO 

JVF.fl  NG  10 


SYFIRNG 
Syr.iFic 
fvnAN6 
SvnfifiQ  lOi 

f  VF.RNg 

SvnAFiG 

Stfirng 

$rr.ANC 


svm»s  j 
$vr.n».G  III 
SvririG 
S  vr.T.-.G 
Str.Nf.G  ill 
SVF.RNG 


At  DA 

SvRn»«G 
Svr  af.C 
S»ri,v:  MO 


•fi  OF  f  CUM  lfCft‘01  IN  a  CIvTN  SIT 


I  14  |Ml.t  »*  I  MM,  Ml.hl 

C  O'  r  St»  C  f  f.i'M  1!Ca*.3S.  TMf  FOX  F  A'O  C  wilt* 

c  n  ;  c  i  o  Mjimi  'i  s»i  :n»  *'Cyr  ii»m  of  aim. 

*  3  n  n  *  i  r,-  tin 

J2"«M30I  2  » 

_ j  Ft  j?  -  j  i .  •  ’ .  1 1*  r  r  uR  n_ _ _ _ 

1x0  JU«ri)ii  Jl  ».10  2  A  J.l'-Oll  J2  I.Efl.2  »G3  TO  t» 


II  AFR  n  t.OJ'U 


™*“*  wn  w^-'wwyww 


1 


m 

RETURN 

5YP!»N9 

*M 

C 

TWO  5C?$  or  IQu*t  L1G4N05.  F  1  NO  SET  WITH  TWO  EQUAL  U5»V0i 

SyONG 

210. 

MI 

I  r<  «  sc  T«  1  »  NE  .2  >G0  To  114 

Svr.RNG 

211 

Hl«* 

SvnRNG 

212 

HI  *  1 

SyhAnG 

IIJ* 

GO  TO  Ml 

Svr.RNG 

!M. 

144 

nisi 

itrt.GG 

215. 

HZ  Jt 

SrnRNG 

2*4. 

144 

Jl*nAT41lt  l,*2  > 

Svinauir 

2tr. 

32 #HATM  I(  |,R2  > 

SvnnNG 

m. 

IF<  32-3 1 .  M.  3  3G0  TO  MO 

SvnftrjQ 

m. 

C 

t€ST  fOH  4»4-u  =  2  «,.3  r=C.  1*  F  GOES  NOT  HAVE  TuorotO 

tyr.RNG 

290. 

t 

K;»:*fiOMu  svp.'ETay  Aiouf  flanc  or  ring,  go  to  44. 

Syprng 

2fl. 

I*T  KAOT<  J  1  P .  fiC  .  2  iGO  TO  44 

Svnuna 

242. 

t 

F  HAS  TWOFOLD  Sv-.'ETAY  ABOUT  flANC  OF  RING. 

Svr.RNG 

*4>. 

N0SNC*4 

SvnRNG 

244. 

return 

Svr.RNG 

241. 

c 

TEST  TON  A*B=C*D  A»0  l-F. 

SvrRriG 

244. 

150 

If! J2-J1 .f 0. 1  bn. 32-31 . E 3  5  IGO  TO  44 

SyuRNG 

247. 

C 

TCSf  FO*  A : B  =  C  •  E  t  •  0  7  =  0. 

SvnRHG 

29 1. 

IFl  32-31  .Kt.T  .  Af.O.  32-31  .  4  IRETURN 

Syr, bug 

2*1. 

32M.ATAJ  l(  1,R|  1 

$YPAN6 

300. 

KHtfRQTC  3 2  >.*0.2  >G0  TO  44 

Jyr.BuG 

mi . 

RETURN 

StnANG 

MI. 

c 

HAXIhUH  IJ  U10FB  or  L  1  G  a  '.OS  IN  A  GIVEN  SIT  »«  .  A=B3CtD=C. 

SvnRNG 

30  J. 

c 

OETCRHlKf.  irc.f  hi.£  TlQFQIO  ROTATIONAL  SYMMETRY  ABOUT 

iyrSNG 

304. 

c 

RLRNf  OF  A  ?  NS  , 

Svr.RP«G 

301. 

554 

31  H*Q<  1  1 

SvrANG 

304. 

JI*r,AIA  |  i(  J,  1  > 

Svr.ANG 

307. 

*0  TO  MO 

SvnahG 

303. 

C 

HAIiruH  NUPBEH  07  UVMS  !N  A  GlYfN  SC  7  *4.  A:B=C=0:f=F. 

Syp.sng 

301. 

c 

OIUMIM  IF  *  MAS  T-OFOLO  ROTATIONAL  Svr.Hf  T  R  V  ABOUT 

Syr.  iNG 

JIO. 

£ 

ALANS  OF  A|NG. 

Svr RUG 

311. 

140 

3  1  n  >  T  A  IK  1,1  } 

SvrifiG 

311. 

if  i  unou  j  i  >  lc  .  ?  ir,o  u  i;» 

SvrRf;G 

31  3. 

7:0  S  "C  =  3I 

Svr.nr;G 

314. 

1  70 

Rt  TURN 

Svr.RNG 

314. 

1  HQ 

Srr.RUG 

rr: 
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1  .  S  UlAO  UT ! MI  SYHTA VC  LB  I 

t.  c  this  suiroutine  controls  thi  ofirrtion  which  finds  thi  atonic 

8,  C  COHFOSITION  OF  (ACM  UGANO  OF  (ACH  CO  A  I  AT  0  H  AC  IN  Y  HK 

A.  C  HOLECULI.  IF  AC  IS  NOT  A  AINU  ATOM,  THI  ROUTINE  DIT  (A  Hi  NC$ 

».  C  WHETHER  AC  FOSStSSSS  IDENTICAL  LlftANOS.  AC  HAV  NAVI  HO  A (  THAN 

A.  C  ONI  1ST  OF  IOIMTICAI  HOARDS. 

7.  I  IT  I  II A  S  VHK  N  I,  S  VH»0  l<  9  ),  |ft|  |<  90,  M  3 

I.  I  NT  I ICA  WC I  QMf (  ♦  I 

I  .  t  NT! ICA  FZATK  Cl  A,  I ••  I 

10.  01  HE  NS  ION  ATOTlf),  L  DO  N A (  100  ) ,  J IR  <  100  > ,  LIGAND(9,N,IOO  I ,  HR  T  <  AO  ) , 

11.  I  HE  A  (  2  ,  N  0  )  ,  N  VC  100  > ,  H  C  V  (  S  00  ) ,  I  IRC  100  I ,  R  CS  A  HE  <  4,  100  > ,  NO  S  A  HE  <  0,  tOO  ) , 

It.  2  NT  0  T  A  L (  8,100) 

18.  CO  MHO  N/IIR1/NO<NOS,SVHA,SYHIOL.,NOVAL<9  > ,  6A 1  0 

IN.  C0HH0N/ALA2/WEI  GMT  ,  HU  6T  (  9  5 ,  HO  LWY  <  100  )  ,  IK  I00,9,*>,NC<  100  ) ,  A  C  C 

If.  CO  HHO  N/ILA3/IRIN6C  M,  10  >,  I  HAT  AC  90, 10  >  ,  N  WC  100),  3  ICA  IOO),AON<  100), 

|  A.  )IO»A<  100),  IBf  100,0),  IA§,  NO  AH 

IT.  CO  HHO  NSILAN/NICC  AO,  90  1,  N»$|  AO, 2  ),  NIK  AO, 20  ),  I  A  C  ,  NO  NF  IfS  ,  1ACT0T 

IO.  CO  HHO  W/OLAf/N0ATn,  NUHAT  HI  S  ),  MIDI  90),  HIS  <2  >,JW,JV,LfLA6S,LFLAl6 

10.  EQUIVALENCE  <CTOT<l>,!!(*2,i)),(LOOWt(l),!HA*K2,Nl)),(J|A<t  ), 

20.  IfHATKt,  N3  )  ) ,  <  LI  B  A  NQC  1,  1,1  ),  1HATK2,  1  )>,CFIATaC(  1,  I  )  ,  N I  A  C  2  ,  9  )), 

21.  2  C  A  CV  ,  I  |(  IT,  •  )  ) ,  I  HA  Tl  I  ),  11(29,2  )),!HEA(  I,  I  ) ,  6"  I  Dl  I  ,  )  M  ), 

22.  3  <  NV(  t  ),  6A  1  D  <  i,|0)>,(  H  C  V  1  I  ) ,  6*  I  0  <  1,11  )  1,(1  !A(  1  ) ,  GA  I  Q  C  l  ,  N  ©  >), 

2  1.  A  CS  AH(«  1  ,  1  ),  IN  1  0(  A,  Nl  )  ),  (  NOS  AHC<  1  ,  1  >,  6A  1  0(  N,  9  A  )  ),  (  NTOT  Al  l  1  ,  1  ), 

IN.  9  SA  I  0<  O.  TO  )  ) 

29.  C1.0  INITIALIZE  VARIABLES  US  E  0  »FAf  ANO  IN  SUlSEOUINT  SUBROUTINES. 

2  A .  00  1  1*1,  NDAT  H 

1  T .  ATOf <  I  )*© 

20.  1  CONTINUE 

2  * .  DOS  1 -1 , ICC 

3  0.  J  IA  <  |  )■  I 

11.  t  t  AC  I  )■• 

It  .  LOO  NK<  I  >■© 

31  .  AVI  1  >«NCt  I  ) 

IN.  HCK  I  1-0 

If.  A  C S  A  HI (  1 ,  I  >-0 

1A.  001  A • 1 , N 

1  7  .  f  EAT  A  C<  A,  I  )•© 

IO.  001  J-l  ,  NDAT  H 

19.  LI  GANOC  J ,  A ,  1  >“© 

NO.  2  CO  NT  I  N  US 

N 1  .  DO  8  1*1,8 

Nt  .  A  CS  A  HE  f  L,  I  1*0 

r.  8  .  NT  01  All  L  ,  I  1*0 

N  N  .  1  CO  NT  *  NUl 

N9 .  R  C  V  ■  © 

N  A .  DON  A- I ,  NO 

N  9 .  HAT  |  A  )*0 

NO  .  DON  J  •  I  ,  I 

N9  .  HIM  J  ,  A  >-0 

90  .  N  CONT  |  NUE 

91.  Ct  .  0  EVALUATE  THE  ATOHIC  C0NFG1ITI0N  ANO  SVHHfTAV  OF  T  M  f  L  I  CANOS 

ft.  C  UNTIL  A  IANNCH  ATOH  IS  AIACMIO  0  A  ALL  CCA«  ATOHS  HAVE  HIM 

93.  C  FAUCKISCO. 

»N.  L  A  A*  1 

99.  LHH-I 

9  A  .  ACIEF  -1000  ^ _ _  _ 


9  F  .  A  L  N-  L  AH*  1 

9  0  .  _____  A  CAE  AT  «  N9  C«  Hlf  IN) _ __ _  __________ 

9  9.  r  It'Nltl  (  IK,  INA) 

to  C  COHFuTf  ATOHIC  COHFOSITION  ANO  CMC*  II  Al  l»M»»  OF  It  CANOS 

A  I  C  OF  CO  A  |  •  T  0  H  A  C- 

At  CALL  S CANCMl  ACIIF,  A C, A CNCIT  ) 

A  2  .  LOONElAO-l 

AN  I  F  (  A  CNK  AT  80  ,  I  OM  )  10  TO  1  NO 

A  9  .  I  F  <  NC4  A  CNC  FT  >  Gl  .  I  >  (0  TO  • 

AA  C  C  U  A  (  ATOH  ICNIlT  If  NO  f  A  |«  MCh  At  0  H  AlSIT  «MI  *ll«S  ANO 

at.  t  MMAT  even. 

AO .  A  C»|»  .| c 

A  9  .  LHH»LHH*» 

TO  If  UAA.  IT  .  AIK  1(1,  mil  T  6  A 

M  .  A  CNt  *T • 1000 

T i .  10  TQ  T 

f»  C  ACNflT  IS  A  |  A  INCH  ATOH  itQAf  CQnAQStt  ON  Q  F  UGANO 


SVHTR  V 
$  VHTRV 
5  V  HTR  V 
f  V  RT  N  V 
S  V  HTO  V 
S  VHT  A  V 
S  V  HT  3  V 
J V  HTR V 
S V  HTI V 
S  V  HTR V 
S  V  HT  A  V 
S V  HTI V 
S  V  HTR V 
S  V  H'.  A  V 
S  V  HTR V 
S  V  HTR  V 
S  V  HTR  V 
S  V  HTR V 
S  V  HTR V 
$  V  HTR  V 
S  V  HTR  V 
S  VHTRV 
S  V  HTR  V 
S V  HTR  V 
S  V  HTR V 
S  VHTRV 
5  V  r.TR  V 
S  V  HTR V 
S  V  HTR V 
5  V  HTR  V 
S  VHTRV 
S  V  HT  A  V 
S  V  HT  A  V 
S  V  HTR  V 
S  V  HI  A  V 
S  V  HTR  V 
S V  HTA  V 
5  Y  HTN  V 
S  V  HTR  y 
S  y  hT  a  y 
S  V  HTR  y 

S  y  ht  r  y 
S  y  hy  r  y 
s  V  Hf  a  y 
S  r  «T  r  y 
S  y  HT  Ay 
S  v  ht  R  y 
S  V  HT  R  V 
$  y  HT  R  V 
i  V  HT  R  V 

s  y  ht  r  y 

S  y  HT  R  V 
S  y  HT  R  V 
V  y  ht  r  y 
i  y  Ht  r  y 
S  v  ht  a  y 


S  v  ht  R  y 
S  y  hT  R  y 


i  y  ht  r  y 
S  y  hi  a  y 
S  V  H  T  R  V 
S  y  ht  a  y 
i  y  Ht  F  y 

S  Y  Fi  t  A  Y 

s  y  hT  A  y 
1  r  Ht  a  y 
S  y  ht  a  y 
S  y  nt  A  y 
S  Y  H’  A  Y 

S  y nt  ft  y 

l  y  n  T  R  V 
I  v  nt  A  y 
S  v  nt  ■  y 


•  NFIRSt-VtNtlT 


S  y  Hi  R  Y 


IF  Flaw  T  1  HI  TMFOUCN  FOA  ATO*  (CHIH  ,  TAANSFtA  TO  II.  SVMTAV 

OfHCAwISt,  S  T  o  A  C  ATOMIC  COHtoOiiMlCM  PATa  IN  SAMI  L*ICAYIfiH  SvmTAV 

IV  AIM1.  ilitkD.  S  A  V 

!  IAI  *  T^nT  )*  I  IM  <  CVII'i  )  *  l  5V»T*v 

I  F  I  t  Ifil  F  CHI  IT  I  .  Cl  I  IBS  tO  IS  S  V  FT  I  V 

*S  U»«  1  ON  (  «  fNI  IT  >  SVWTIW 

D0)l  jit,Nflvtv  SvmYWy 

OiM*DI.',F5U»,«CNllT  >  *  L  J  G  A  N  0  I  J  ,  C  S  U  6  ,  \  CNIliT  IHTO’I  }  » 

11  CO  NT  I  N  UK 

to  to  > f 

_ _ COUMTtP  AAAAV  Jit. _ _  _  _ 

31  I  to"  '  CNft  IT  >-*  J  lft<  ft  CNK  IT  )*  1 
to  5 V»« i i« <  *  CMC  IT  > 

60  TO  1* 

_ STOAt  0  IT  A  IN  Li,  GAM3  IV  LOCATION  SAKCIM  <0  >V  J  t*  . _ 

31  J  feM  to  CNK  *T  )4J»Al  «  CMCIT  »*| 

*5 U  A  *  j i A (  l CMCIT  ) 

aiftkc*  H  ui.iCfli:  >■*  C _ _ _ _  __  _ 

14  ooi r  j-i , n o a r n 

L!  CANQ(J,ASUt,toCMl«T  > • to  T 0 T  <  J  ) 

T  t  CO  NT  1  N UK 

___  I  MCA  rACMT  CHAIM  COl.MTjA  LI  I.  _  _ 

if  L  I  X  ■  L  I  F*  l 

If  NUMtKA  OF  lAAMCMfS  15  MO''  KICEKOCO  AMD  LOCATION  L  MM  IS 
MOT  GAt-TtA  T  MAM  l i M  6  T  M  CC  MEM  1AAMCM  AND  KCNIlT  IS 
I  DINT  I  CAL  TC  THE  4  T  f)  *  l  0  C  M  t  0  IV  T  Ml  SAME  AOS  J  MOM  AS 
RCNMT  IM  THE  NEW  CMAIM  L«X,  GO  TO  II.  0  T  H  €  A  w  *  S  K  COMTfNuf 

irun,  li.u  a\0  inn,  i(  .  nil  in,  i  i,  vno.  nic<  ui,  lam,  id  .  k;vi  it  »  go 
I  Y4  I  I 
wr«cH"i 

L MM* L  MM- 1 

A  A*  7  CM  n  MAC(  L  I  I ,  LM  ) 
miCNflT  (|  ■  F  I  A  S  V  II  VF  T  LT  *  I  OOt 

t  DO  Ml (  I  CMC  IT  )»  t 

MNB  ATOMIC  COrtoOSITTON  OF  nt'.lAjMVM’i  UC*ND'.  OF  IlMflT  AMO 
S  v  to«|T A  I  ES 

CALL  S C AM»A < to CrfE IT , K AFT v%  I 
*  C ■ to  CNI IT 

A  €  A  |  AT  C  V  t  i  0  AS  IliOlC. 

CO  TO  I*  f 

1 


S  v  «!  A  v 
5>  V  MT  A  V 
lYtoTVT 
S  VMTAf 
S  V  MT  A  v 
S  to  MT  A  V 
$  Y  MT  A  / 
S  V  MT  A  j 

S  v  mT  A  y 
S  v  my  A  y 
S  V  MT  A  y 

S  y  mt  A  y 

S  r  MT  a  v 
$  V  MT  A  V 
5  y  MT  A  V 

S  y  M  T  A  v 
S  V  MT  A  y 
S  y  mT  A  y 
S  V  Mf  A  V 
5  V  MT  A  y 
s  y  MT  to  v 
STnNY 
S  v  MT  A  V 

S  v  MY  a  v 

S  V  MT  A  7 
S  V  MT  A  y 

S  y  M7  A  V 
S  y  Ml  a  y 

S  V  MT  A  V 
S  y  nT  A  V 
s  y  M5  a  y 
$  y  MT  A  y 
S  y  MT  A  V 
S  y  MT  A  V 


i  \  f  k  t  v  0  o  t  -  »  y 


*y*»i 


Appendix  C 

GLOSSARY  OF  PROGRAM  VARIABLES 

The  following  glossary  contains  definitions  and  cross  references  of  all  the 
FORTRAN  symbols  used  in  TGAP.  The  columns  entitled  "LOC"  and  'TU'' 
require  some  explanation.  The  symbols  that  appear  in  column  LOC  (location) 
have  the  following  significance: 

Number  -  Location  within  a  common  block  where  the  variable  is  stored. 

If  the  variable  is  an  array,  it  represents  the  storage  location 
of  the  first  element  of  the  array. 

*  -  Variable  is  a  local  variable  to  the  routine  specified  in  column 

BLOCK. 

$  -Defines  a  subprogram  either  of  TGAP  or  the  System's 

Library. 

The  letters  that  appear  in  column  U  (usage)  have  the  following  significance: 

A  -  Arithmetic  statement  function. 

C  -  Constant  found  in  a  data  statement  and  on  the  right  side  of 

an  arithmetic  statement. 

D  -  Variable  found  in  a  data  statement. 

E  -  Entry  point. 

F  -  Function  reference. 

I  -  Variable  found  in  common  or  in  the  argument  list  and  used 

only  on  the  right  side  of  ar  arithmetic  statement. 

M  -  Variable  found  in  common  or  in  the  argument  list  and  used 

on  both  sides  of  an  arithmetic  statement  (i.  e.  ,  modified). 

O  -  Variable  found  in  common  or  in  the  argument  list  and  used 

only  on  the  left  side  of  an  arithmetic  statement. 
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S  -  Subroutine  cull. 

W  -  Working  variable  found  on  the  left  side  and  then  right  side  of 

an  arithmetic  statement  which  is  not  in  common  or  in  the 
argument  list  but  is  a  local  variable. 


EO*TRAN 

vvneot 

«ATH 

SrnaOL 

DESCRIPTION 

sio**r.f  ,  sue 

BLOCK  tud  SOB*  It  TVF* 

.  OSRf 

VAR 

i6TR 

*« 

(  1  > 

Contain*  error  printout  information. 

/CM*!Ni1/<  * 

l  CHAIN*  C  SEAL 

A* 

4  A  > 

aeaeb 

Reduction  factor  for  the  symmetry 
used  ghen  atso  structure*  occur. 

/ENT5VH/4 • 

)  ENTSVIR  U  SEAL 

AMES 

AL08 

Natural  logarithm  function  routine 
(asternal  routine  of  system). 

/*L  06  /CO 

)  ENTSXIS  f 

16*2  f 

SLOB 

SLOB 

•  ITER 

<  *  ,  J  > 

j  =  t  contains  weight  of  group  1 
which  lacks  thermochemical  date.  j 

2  cmtalns  weight  of  group  whose 
dat:.  sill  be  utl'leed  for  group  1 . 

/TG*P  S\ • 

,  7G*s  c  inte 

ALTER 

4  20, l > 

ASSIGN 

Establishes  the  change  In 
coordinates  required  to  seen  about 
Indexed  core  atcin.  Eight  directions 
are  possible.  The  desired  direction 
is  defined  by  calling  subroutine. 

The  loaer  and  upper  limits  for  the 
bend  termination  loop  of  subroutine 
BONO  are  also  sat . 

/ASSIGN/I  A 

9  assign  e 

J  DENT  S 
NUnBEA  S 

SC  A!*  S 

ASSIGN 

ASSIGN 

ASSIGN 

ASSIGN 

•  sync 

Determines  the  number  of  asymmetric 
carbon  atoms  present  In  the 
molecule. 

/Asvnc  n  % 

)  ASYflC  E 
CORCIG  S 

RSVRC 

ASYMC 

•  k 

<  1  ) 

Ring  correction  data  for 
cyclopropane. 

/COHUG/C  • 

)  CORCIG  0  SEAL 

A) 

4  *  > 

*10 

1  I  ) 

Ring  correction  data  far 
cyrlohcxadlene  1,3. 

/CQRCIG/C* 

1  CORCIG  D  SESL 

*10 

44) 

Al  1 

(  1  ) 

Ring  correction  data  for 
cytlohexadlene  1,H. 

/CORCIG/4 • 

)  CGRCIG  0  SESL 

*11 

4  4  > 

*12 

<  1  ) 

Ring  correction  data  for 
eye ! oheptane ■ 

/CORCJC/4  * 

1  CORCIG  0  REAL 

*12 

4  (a  ) 

*12 

(  1  ) 

Ring  correction  data  for 
c  y  c i oheptene . 

/CORCIG/4  * 

>  CORCIG  0  Rl:  AL 

*13 

4  4  > 

»l<l 

(  1  ) 

Ring  correction  data  for 
rye  1  oheptad I ene  1,3. 

/CORCIG/I • 

>  CORCIG  0  REAL 

*i* 

4  4  > 

*11 

(  1  ) 

Ring  correction  date  for 
eye  1 oheptatr 1 ene  1,3,5. 

/CORCIG/4  * 

S  CORCIG  0  REAL 

*3$ 

<  4  ) 

Alt 

(  1  ) 

Ring  correction  data  for 
cyclooctnn*. 

/CORCIG/4 • 

i  CORCIG  D  REAL 

4  4) 

*1  2 

(  i  ) 

Ring  correction  data  for  cls- 
cyclooctana. 

/CORCIG/4 • 

)  CORCIG  0  REAL 

*»r 

4  4  J 

*l( 

(  I  ) 

Ring  correction  data  for  trans- 
eye  looctana. 

/CORCIG/4  • 

1  CPACIG  P  SEAL 

AH) 

4  4) 

.'ll 

(  1  ) 

Ring  correction  data  for 

/CORCIO/4  » 

1  CORCIG  0  SESL 

*19 

441 

eye  I sectatr  I ana  1,3,5. 


i,’  n  mi-» 
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FORTRAN 

SvntoL 


HATN 

tvntOL 


DESCRIPTION 


k 

! 

> 


At 

<  1 

Ming  correction 
eye lepropena . 

data 

for 

RIO 

i  1 

Ming  correction  data 
eye  1 ooetatatr aana 

for 

Atl 

(  1 

fling  ’orractlon 
eye  fenonane. 

data 

for 

Alt 

<  1 

fling  correction 
eye  tononana . 

data 

for 

e  1  *- 

All 

(  f 

fling  correction 
cvc 1 ononano  , 

data 

for 

tr  ana  - 

A2A 

<  1 

fling  correction 
sp 1 r opentane . 

data 

for 

A29 

(  1 

Ring  car r ae 1 1  on 
b 1  eye  1 obutane . 

data 

for 

A2A 

(  1 

fling  eoirectton 
b 1 e  yc 1 opantana  . 

data 

for 

A22 

<  t 

fling  correction 
b 1 c  y  c I  oh#  « ana . 

data 

for 

A2A 

1  1 

fling  correction 
b  1  c  yc I oheptane  . 

data 

for 

A2A 

(  i 

) 

Ring  correction 
b  1  eye  1 ooctane  . 

data 

for 

Al 

<  1 

) 

fling  correction 
eye  1 obutane  . 

data 

for 

/COACIG/t • 

/CORC 10/1 » 

/CORCIA/I » 

/COACIQ/I • 

/COACI#/>  • 

/COACIG/t • 

/COACIS/( • 

/CORC  S  G/t • 

/ CORC I G/< * 

/CORCIG/t • 

/CORCIG/( • 

/CORCIG/I • 


t  COPC I Q  0  REAL  At  <»> 

I  COACiS  0  Rf At  AIO  1*1 

I  COACIS  0  AEA1  All  (At 

)  CORGI#  0  REAL  Alt  (#1 

>  COACIS  0  REAL  All  (A  I 

)  CORC 1 6  D  REAL  A2A  (A) 

>  CORC I G  0  REAL  A2J  I  At 

I  CORCIG  0  REAL  A2A  (Al 

)  CORCIG  0  REAL  A22  I  A  ) 

>  CORCIG  0  REAL  A2A  <  *> 

)  CORCIG  0  REAL  A2A  ( A  I 

>  CORCIG  0  REAL  A]  (A  I 


AIO 

All 


Ring  correction  data  for  /corcig/c 

b  I  c  yc  I  ononano . 

This  array  and  all  arrays  up  to  /corcig/<< 

array  AhH  contain  tha  the  mocha*  I  c  a  I 
correction*  for  the  oaygen- 


)  CORCIG  0  REAL  AIO  (  A  I 

)  CORCIG  0  REAL  AJI  «  A  I 


containing 

rings 

. 

Alt 

Description 

not 

1  nput 

/CORC 1 G/t • 

>  CORCIG 

0 

MAI 

All 

«  4  > 

All 

Description 

not 

1  nput 

/CORC  J  G/< * 

)  CORCIG 

0 

REAL 

All 

(  4  > 

AIR 

Description 

not 

Input 

/CORC  1  G/l  • 

)  CORCIG 

0 

At  AL 

AH 

*4) 

Alt 

Description 

not 

1  nput 

/CORCIG/I • 

)  CORCIG 

0 

At  AL 

AJ» 

<  4  > 

A1A 

Ooser Ipt Ion 

not 

1  nput 

/CORC  1  G/l  * 

I  CORCIG 

D 

Af  AL 

All 

(  4  ) 

12  ARR  2|  I, Cl- JA 
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•  IF 

Description  not  Input 

/COACIG/C* 

>  CORCIG  0  RE  At 

•  IF 

4  A) 

•  3® 

Description  not  Input 

/C0*CIG/<  * 

>  CORCIG  0  REAL 

All 

(A  1 

•  It 

Description  not  Input 

/CORCIO/I  • 

ft  CORCIG  D  REAL 

•  3* 

(A  A 

A® 

(  i  » 

Ring  correction  dote  for 
eye  1 obutene. 

/£0RC!G/< • 

>  CORCIG  0  REAL 

At 

(ft) 

AtO 

Description  not  Input 

/C0ACIG/<* 

)  CORCIG  0  REAL 

AtO 

4  A  ft 

•  •1 

Description  not  Input 

/C0RCIG/< • 

>  CORCIG  D  REAL 

At  | 

(  A  > 

••I 

Description  not  input 

/C0RCIG/« • 

)  CORCIG  0  REAL 

AM 

(  A  > 

•  •1 

Description  not  Input 

/  C  0  •  C !  G  /  <  • 

)  CORCIG  0  REAL 

Atl 

<  A  ) 

Att 

Description  not  Input 

/CORCIG/I ♦ 

)  CORCIG  0  REAL 

Att 

<  A  > 

NM 

<  i  ) 

This  array  and  all  arrays  up  to 
array  A50  contain  the  t h e r moc h am  1 c a  1 
correct.ons  for  the  nitrogen* 
containing  rings. 

/CORCIG/I • 

)  CORCIG  0  REAL 

AM 

<  A  > 

»H 

Description  not  input 

/COHC 1 G/< • 

>  CORCIG  0  REAL 

At  A 

(  A  I 

AtF 

Description  not  Input 

/CORCIG/I • 

>  CORCIG  C  REAL 

At  F 

(  A  ) 

AM 

Description  not  Input 

/CORC 1 G / 1 • 

>  CORCIG  0  REAL 

At* 

(  A  ft 

Att 

Description  not  Input 

/roRci&/( * 

)  CORCIG  0  RIAL 

Att 

<  6  ft 

AS 

(  1  ) 

Ring  correction  date  for 
eye lopentane. 

/corcig/<  • 

>  CORCIG  0  REAL 

At 

!  A  ft 

•90 

Description  not  Input 

/c;o»c  ig/«  • 

>  CORCIG  0  REAL 

AtO 

(  A  ft 

*A 

(  i  > 

Ring  correction  data  for 
c  yc  1  opt n ten* . 

/COAC 1 G/ «  • 

»  roftcio  o  real 

A  A 

4  A  ft 

•  ? 

(  i  ) 

Ring  correction  data  for 
cyclopentadlene. 

/ CORC  1  G /(  • 

>  CORCIG  0  real 

AF 

(  §  ft 

At 

(  i  > 

Ring  correction  data  for 

/COACIG/«  • 

I  CORCIG  0  REAL 

AG 

(  A  ft 

rye I ohe  t  one . 


i  r  era  ii  «.oi-i* 
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EORTM*  NAIM 

SvnBOL  SvnSOL 


DESCRIPTION 


- JL'.Sl".*£L_ 

bluc*  toe  Sub*  u  ivpe 


^*Gt 
vaa oTS 


AB 

•LANA 


(I)  Bing  correction  data  for 

eye  I oha iene . 


/coacig/i*  >  eoACie  o  *e»l  a*  it> 

/  T  GAA  /(•  I  VGA*  C  1NTE  it  ANA 


•  UNO 


CAGE 


Determines  bond  type  present  at 

/•OMO  ti  % 

i  »ono 

c 

BOND 

specified  direction  of  Indeaed  core 
atom.  It  also  scans  symbol  Input 
array  along  this  direction  until  a 
symbol  unequal  to  tha  designated 
bond  1 t  detected. 

RIND 

SCAN 

s 

s 

BOND 

BOND 

Cate  number. 

/  T6HP  /<• 

>  TGAA 

u  |  NT£ 

CASE 

CHAIKA 


CHANGE 


CIS 

CISCO* 

CIS* 

CISM 

CUM 

cut 

Cl» 

cut 


Control  routine  for  Bection  2  of  th«  /Chain*/!* 

program.  This  section  Identifies 

the  chain  formations  present  In  th» 

molecule  as  sell  at  the  number  of 

unique  rings  and  the  ring 

component  t . 

Redefines  a  '  I  chains  In  array  NBC  If  /changc/i* 

a  chain  exists  that  has  only  oni 

branch  atom  and  an  upper  residual 

<I2)  that  Is  greater  than  the  lomer 

residual  (III.  If  more  than  one 

such  chain  exists,  the  chain  talth 

the  maximum  12  -  II  is  chosen  as 

ref erence , 

Identifies  each  pair  of  ligands  els  /CIS  /it 
to  the  linkage  C=C,  ixhere  both 
carbon  atoms  <  K 1  and  K2 >  have  a 
connectivity  of  three. 


Determines  mhether  ligands  of  K1  and  /CISCoa/i* 
K2  exhibit  a  els  Interaction.  If  so. 

It  establishes  the  number,  type,  and 
magnitude  of  the  correction. 

Sum  of  all  els  contributions  to  the  /cisco*/!* 
heat  of  format  I  on. 

Sum  of  all  els  contributions  to  the  /CORCIG/i* 
heat  of  formation. 


Sum  of  all  els  corrections  to  the  /SOANO  j /« . 

heat  of  format  I  on. 


Sum  of  all  els  contribution*  to  the  /CISCO*/!* 
entropy  . 

Sum  of  all  ;  I  i  c  o  n  t  r  I  bu  t  I  o  n  *  to  the  /coacig/i* 

entropy  . 

Sum  of  all  els  corrections  to  the  /So»ngi/<* 

entropy . 


)  CHAIN*  E  CHAIN* 

TGAA  S  CHAIN* 


1  CHAIN*  S  -HANGE 

CHANGE  E  CHANGE 


>  CIS  E  CIS 

CISCOA  S  CIS 

CYCORA  S  CIS 

Ei’Ror  s  cu 


>  CISCOA  E  CISCO* 

CORCIG  S  CISCO* 

SOANGI  S  CISCO* 


>  CISCO*  *  REAL  CIS* 

I  CORCIG  U  REAL  CISN 

I  SORNG I  I  RIAL  CISH 

>  CISCOA  *  REAL  CISS 

I  COACIO  M  REAL  CIS) 

>  SOANGI  I  REAL  CIS! 


i r  aa*  n  a.ai-ii 


1!  *ii  k  1  W ! 
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FONT  RAW 

svraot 

roftciQ 

cn 

CP*IT 

CPC  I  s 

CP5V« 

f.PSVR 

CPSV« 

cpsv* 

CP$V* 

CP  T 

CPI 

CPI 

CPf 

» /  /»{*•  F J 


ftftTH 

SVPI0CL 


DESCRIPTION 


_  S t  drape _  ^n'inouT I'.'f  USAGE 

BiUC»~  loc  "  5u^n . u  ivhe  vaa  61H 


<  I  ) 

<  I  ) 

(  I  ) 

(  i  » 

<  f  ) 

(  I  ) 

<  I  ) 

(  I  ) 

(  I  ) 

(  I  ,  j  ) 


Control  routine  for  section  3  of  the  /corcig/i»  >  corcis  E  corcis 

pr  ogr  am .  This  section  finds  nil  ,5*p  s  COflcie 

second-order  Interaction  and  ring 
corrections  as  *e I  I  as  c ontr I  by t  I  on  a 
due  Internal  and  external  rotational 


symmetry  and  optical  lso*erl»*. 
Heat  capacity  coefficients  of 

/TGAP  /(  • 

1  TGRP  U  RERL  CP 

(  n  > 

*o 1  ecu  1 • . 

Values  of  the  heat  capacity 
coefficients  for  a  particular 
second-order  Interaction. 

Heat  capacity  coefficients  for  els 
correct  I  on* 

Total  contribution  to  the  heat 
capacity  coefficient*  from  second- 
order  interactions  and  ring 
corrections. 

Total  contribution  to  the  heat 
capacity  coefficients  from  second- 
order  Interactions  and  ring 
correct  Ions. 

Total  contribution  to  the  heat 
capacity  coefficients  from  second- 
order  Interactions  and  ring 
corrections. 

Total  contribution  to  the  heat 
capacity  coefficients  fro*  second- 
order  Interactions  and  ring 
corrections. 

Sum  total  of  corrections  to  the  h  t  a  t 
capacity  coefficients  derived  fro* 
section  3  of  the  progran. 

Heat  capacity  of  molecule  for 
temperatures  specified  In  T  ARRAY . 

[cal -deg-^-mole'*] 
Contains  the  four  heat  capacity 
array*  CPI,  C  P  2 ,  CP3,  and  CPf. 


/blxj  n  *3vi)  cor c i g  is  rirl  cpalt  tel 

/COACIG/I*  )  C0RCI5  C  RERL  CPC1S  «R> 

rCORC  I  G/<  *  >  C0RC1G  n  RFRl  CPSYIS  let 

/CRINGS/C*  )  CHIMG5  «  REAL  CPSYIS  (  S ) 

/MFxr.nn/r*  )  mfiron  n  rfrl  cpsym  ia> 

/NR|NGS/(»  I  WRINGS  IS  RERL  CPSVIS  (A) 

rrr.RP  /(•  )  IGAP  I  RERL  CPSYIS  IS) 

/Bill  /(  IIOS)  I  GRP  rn  RERL  CPI  MR) 

/  B  t  (I  /<  SSI  |  n  A  I  M  0  RFRL  CPI  I  180) 

GADAIR  I  RFRL  CPI  I  180) 

I  GAP  I  REAL  CPI  I  1 8  0, S  ) 


(I  j)  Contains  the  four  boat  capacity 

arrays  CPI,  CP2,  CP3,  and  CPH  . 


/Bill  /(  SSI)  0ATAI  0  REAL  CPI  l)*0> 

GAOATR  I  RFRL  CPI  11*01 

I  GRP  I  REAL  CPI  I  180, A) 


(  |  )  Coefficients  for  the  temperature  /Bin  /<  ill  i  oni’i  o  real  cpi  ii*0> 

dependpnt  ter*  CP2'T  o>  the  fitted  gadatr  i  real  cpi  naoi 

group  additivity  heat  capacities. 

[cal  -  deg‘*-*ola"lj 


Ol-J* 


1 3fi 


CM  (  I  ) 

(  I  ) 

CAiNSS 

CTWO 

CVCOAA 

OdTCIS  (|,j) 


Coefficient*  for  the  temper eture 
dependent  term  CP3T2  of  th#  tltt,d 
group  additivity  heat  capacities. 

leal  -deg'^-mole**  ] 
Coefficient*  for  the  temperature 
dependent  term  CPHT3  th«  ^  ^  •  «1 
group  additivity  heat  capacities. 

leal -deg'^-wolw"1 1 
Searches  for  certain  carbon  fused 
ring  systems  and  applies  ring 
corrections  If  present. 

Checks  for  the  presence  of 
monocyclic  aromatic  rings  and  ultra 
groups  which  exhibit  twofold 
Internal  rotational  symmetry  about 
an  axis  with  a  nonlinear 
configuration.  If  present.  It 
stores  the  pertinent  Identification 
numbers  and  contributions  to  the 
entropy . 

Determines  the  type  of  ring 
correction  for  a  non-fustd  ring. 

Also  sets  various  ring  arrays  and 
other  indicators  providing  benzene- 
or  pyr 1 d  I  ne -type  rings  are  present. 
Contains  the  heat  of  formation  (1=1) 
and  entropy  <  1=2)  corrections  for 
the  second-order  Interaction  ;. 


/blue  /(  soi>  oatai  o  aeal  cm  iiooi 
gaoata  i  real  cm  m»o> 


/six t  /<  lost  i  oatai  o  aeal  cas  naoi 
gapata  i  aeal  cm  < iso > 


/caiNGS/ia  i  coacie  S  caings 

caings  e  caings 


/ctwo  /(  s  )  cruo  E  CTUO 

rnrnor  s  ctwo 


/cvcoaa/i*  i  cohcig  S  cvcoaa 

crcoaa  e  cvcoaa 


/8LK3  n  w5i)  ciscoa  n  real  daicisi?,  iso> 
cohcig  is  real  datcisi  s,  isoi 

CTWO  0  BE»L  DATCIS(2,150> 
D  I  TE HE  IS  REAL  OATC  I  SI  2,  150  » 
GAUCHE  IS  REAL  DA  TC  I  SI  2,  I  SO  I 
INTHOT  n  REAL  OA I  C  (  Si  2 ,  I  SO  ) 


DELETE 

OELM 

GEL  TR I 

DEI  Ta* 


Disengages  from  use  all  the  pairs  of  /delete/!* 
chain  ring  atoms  and  their  non-ring 
ligands  which  have  been  found  to  be 
dissimilar  by  the  comparison  testa 
of  subroutine  EQUALR. 

Heat  of  formation  of  molecule  for  /tgar  /<  • 

290*K.  Ckcsl -mole-1! 


)  OELETE  E  DELETE 

EQUAL  R  S  DELETE 


)  TGAA  ■*  REAL  OELM 


Determines  that  part  of  the  group  /deltai/i*  >  oeltai  E  GFLtri 

■  eight  composed  of  the  sum  of  the  stand  5  deltai 

assigned  weights  of  the  group  cor* 
itom  and  of  the  atomic  constituent* 
bonded  to  the  con  atom. 

Adds  all  sacond-order  mu  1 1 1  p  I  •  -  bond  /Celt*i/i»  »  deltas  e  Delias 

contributions  to  the  group  weight  stand  $  delta! 

va I  gw . 


ir  aaa  rs  w.ai-ia 
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f  OR  TflJW 

HATH 

DESCRIPTION 

STOWAGE 

suanour iwf 

USAGE 

SYMBOL 

SVMRQL 

"eLfifs  i  oc 

SUCR  U 

IYP€ 

vaH  Dirt 

Oi IE AC 

Searches  for  dltertlary  ether  groups 

/OIURE/1  * 

)  C0RCI8  S 

OIIEAE 

In  molecule  and  applies  the 
appropriate  correction.  If  present. 

OIIEIf  E 

OITIAE 

OORPAR 

Ortho/pars  correction  for  pyridine- 
type  structures. 

/COACJG/I  • 

)  coacig  C 

REAL 

OOAPAK 

OORPAR 

Ortho/para  correction  for  pyridine- 
type  structures . 

/HEIG0N/<  * 

)  HEIGON  1 

REAL 

OOAPAA 

DOW  I HO 

<  i  > 

Ortho  corrections  for  bentene-type 
structures . 

/CQRC 1 G/< * 

)  COACIG  C 

REAL 

PORTNOI  »» 

OORTHO 

<  i  > 

Ortho  corrections  for  beniene-type 
structures . 

/HEXG0K/<  * 

>  nexgon  i 

REAL 

OORTHOI  4 1 

OTEM 

Sum  of  all  dltertlary  ethe' 
corrections  to  the  heat  of 

/CORC I G/<  • 

>  coacig  w 

REAL 

OTEM 

formation. 

OTEM 

Sum  of  all  dltertlary  ether 
corrections  to  the  heat  of 

/  D I  T E RE /(  • 

»  oiveae  m 

REAL 

OTEM 

format  1  on . 

ENOCSI 

First  symbol  of  end  of  case  test 
variable. 

/T GAP  /<  ♦ 

>  igap  c 

1NIE 

ENOCSI 

ENOCSZ 

Second  symbol  of  end  of  case  test 
variable. 

/Tf.AP  l\* 

)  TGAP  C 

INTE 

EN0CS2 

ENOCSI 

Third  symbol  of  end  of  case  test 
v a- 1 ab I e  . 

/IGAP  /(  ♦ 

)  TGAP  C 

INTE 

ENOCSI 

ENOAU* 

End  of  run  test  variable. 

/I  GAR  /<  • 

>  igap  c 

INTE 

ENOAUM 

ENISVPI 

Computes  entropy  contributions  from 

/f  nrsvn/t  » 

)  CORC 1 G  5 

ENtsvm 

Internal  and  external  rotational 
symmetry  and  optical  Isomerism. as 
ue  II  as  auxiliary  properties  such  is 
the  longest  chain  In  the  molecule. 

tNTSvn  e 

ENiSvm 

EQUAL 

Processes  the  operation  that 

/EQUAL  /(  • 

►  CTWO  5 

EOURL 

determines  whether  too  or  more 
complex  (core)  ligands  have 

Identical  structures. 

EQUAL  E 

setup  s 

EQUAL 

EQUAL 

EQUAL A 

Determines  whether  the  backbone 

n  QUALR/I i  1 

1  EQUAL  S 

EQUAL  (I 

structures  cf  too  rings,  a  and  b, 
are  the  same.  Non-ring  ligands 

EQUAL*  E 

EQUAL  A 

bonded  to  these  rings  are  also 
classified  and  stored,  but  their 

symmetries  are  checked  In  subroutine 
EQUAL,  not  here. 

E I  lAOf 

Computes  the  extern*!  rotetlon 

/FXlftOT/l  •  > 

i  coacig  s 

E  X  T  ROT 

symmetry  number  of  the  molecule. 

EX  CROC  ( 

EXTROT 

IT  e"A  n  «.0*-»4 
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FORTRAN 

SVFIBOl 


NATH 

Syn»oi. 


DESCRIPTION 


storage  subroutine  usage 

UCK  LQt  JubA  U  TYFE  VAR oTn 


G"0  (l,j> 


>  EOUALA  S 
FIRST*  E 


Determines  whether  tlx  flrit  atom  to  feino  /( »  i  fiko 

bt  Indexed  I*  a  core  aton  or  jfi  siano 

univalent  etow.  If  the  latter.  It 

determines  the  location  of  one  of 

the  core  atoms  that  Is  bonded  to 

this  non-core  and  f  i  r st  - 1  ndexed 

*to».  The  data  for  this  non-core 

atom  are  stored  In  IX. 

Determines  If  the  two  ring  atoms  /e;sst*/<*  ►  eouai 

under  comparison  are  part  of  two  firsi 

different  fused  ring  systems.  If 

so,  it  compares  several  of  the 

composition  and  structural 

properties  of  the  two  fused  ring 

systms  for  similarity.  If  the  tmo 

rings  are  not  fused.  It  compares 

their  ring  size. 

Gibbs  free  energy  of  molecule  for  /#ix3  /<  l2*tT>  tgaf 

temperatures  specified  In  TARRAY. 

tkcal-mole"*] 


FIRST* 

FIRST* 


«  REAL  FT 


FUSIOM 

Identifies  the  set(s)  of  fused  ring 
system(s)  when  present. 

/EUS  I 0N/<  9 

1  CORCIG  S 
FUSION  E 

EUS10N 

FUSION 

GAOATA 

Prints  out  Bensons  tables  of 
thermochem 1 c a  1  group  additivity  date 
If  requested  by  Input  data. 

/GADATA/I A 

>  GAOATA  E 

TGAF  S 

GAOATA 

GOOATA 

GAUCHK 

Determines  whether  the  ligands  of 
the  test  core  atoms  K1  and  K 2  ere 
gauche  to  each  other.  If  so,  It 

finds  the  number,  type,  end 
magnitude  of  the  gauche  correction. 

/GAUCHE /<  • 

)  CORCIG  S 
GAUCHE  E 

SORNGI  S 

Gauche 

GAUCHE 

GauChE 

GAUCHE 

Sum  of  ail  gauche  contributions  to 

/cohc  j  r./«  • 

1  CORCIG  W  REAL 

GAUCHM 

the  heat  of  formation. 

Sum  of  all  gauche  contributions  to 
the  heat  of  formation. 

Sum  of  all  gAuchs  corrections  to  the 
host  of  formation. 

Input  array  containing  tmo- 
dimensional  structure  of  the 
molecule  [required  Input). 


)  GAUCHF  «  HI  AL  GAUCHM 


I  SOSNGI  r  Af  Al  GAUCHM 


2S  I  IIOND  I  lure  GA  10  I  SO,  10  I 
ioinf  n  inti  grid  <so,eo» 

NUnBEA  i  i:m  grid  iso.eoi 

SCAN  I  INK  GRIO  (SO,  *0  > 

stand  i  i rut  (rio  oo.aoi 

I G AF  n  INTI  GRIO  (  SO, SO  I 


GAOUF1  <  |  J 


First  pert  of  the  c h  e m I c  a  I  symbol  of 
each  group  In  the  data  library. 


t  I  DAIAI  0  INTI  GAOUFM  110  I 
G  A  0  A  I  A  I  INK  GAOUFII  IAO  ) 


GAOUFl  (  |  ) 


Second  part  of  tha  chamlcal  symbol 
of  aach  group  In  tha  data  llbrr  y. 


*»*>  DAIAI  0  INTI  GNCIUFJI  110  » 
GAOAIA  |  INI!  GHOUFJI  ISO  I 


i r  afa  t i  a.ot-is 


PORT  ft  AN 

Svr.OOl 

GROUP) 

HCONS 

MpUGOW 

MF298 

HR  I  NG 

HR  I  WG 

HR  l  NG 

WRING 

HSOI 

hSI 

m!,v* 

wvm 

MT  T 


I r  am  rj 


HATH 

SVMGOL 


DESCRIPTI  OiV 


SI  ""H'-L _ _ _ H'SHpuiiNf  usage 

StOCK  LOC  SUBA  U  IVRE  V  «|S  Of* 


(  1  ) 


(  I  ) 


(  I  ) 


(  I  ) 


(  I  ) 


Third  part  of  the  chemical  symbol  of 
each  group  In  the  data  library. 

Enthalpy  constant. 

Assigns  the  necessary  weight 
corrections  to  the  groups  of  a  fused 
ring  system  which  form  part  of  a 
benzene  or  pyr  I  dl ne  -  type  structure 
(l.e.  conjugated,  sls-membered 
rings)  and/or  to  non-fused  rings  of 
similar  structure  and  to  all  groups 
bonded  to  these  ring  structures. 

Heat  of  formation  at  298* ii  of  each 
group  In  the  data  library. 

Ckcal -mole'^J 

Total  of  ring  contributions  tn  th* 
heat  of  formation. 

Sum  of  ring  contributions  to  the 
heat  of  formation. 

Description  not  Input 


/etna  /(  last)  oatri  o  (Ntc  grourkiso) 
c*o*t*  i  iNtt  grourji i«o > 


/tgar  /<•  )  roar  w  real  kcowj 


m»G0K/<S  I  C0ACI3  S  HEIGOM 

HEIGOM  C  HEIGOM 


/HIU  /<  161  I  OAT S l  o  REAL  ME299  (ISO) 

GADAIA  I  REAL  HE29S  (ISO) 
T  GAR  I  RE  AC  HE  2  9S  I  ISO  I 


/CORCIG/I*  )  CORCIG  U  REAL  MR  I  AG 


/  CR  I  NT. S  /  (  •  >  rniNGS  n  RERI  HRIM8 


/Mf»r,0N/i»  )  Mfir.om  m  reri.  wring 


Sum  of  ring  c  o  n  t  r  I  bu  1 1  on  s  to  the  /  (art  i  ng  S  /  <  •  )  wrings  n  real  whins 

heat  of  formation. 


Enthalpy  of  molecule  at  temperature  /*.«)  n  inn  tgar  is  real  msot  (ia> 
T  minus  enthalpy  at  temperature 
298*K  for  temperatures  specified  In 
(ARRAY.  (kt ; I  -mo  I  e  '  1  J 


Fnthaipy  of  molecule  for 
temperatures  specified  In  TARKA“. 

thcal-mule"*] 

Total  contribution  to  the  heat  of 
formation  from  second-order 
1  n  t  (  r  1 1  1  i'  .1  )  and  ring  corrections. 

Sum  total  of  corrections  to  the  heat 

of  formation  at  2  )  8  *  K  derived  from 
section  3  of  the  program, 

(Seal  -  mole  *) 
Total  o  n  t  h  a  1  p  y  of  noire  ule  (enthalpy 

+  '-eet  of  formation  »t  298*K)  for 
tempera* uret  specified  In  TAflRAY. 

t  A  c  » i  -»0  I  *  ‘  *  ) 
Subscript  thet  designates  bond  type. 


/BleJ  /<  l?!J>  THAR  IS  REAL  MS  T  (IS) 


rronciG/(»  i  corcig  o  real  msym 


/TGAR  /!•  )  I  GAR  I  RIAL  MSVN 


/sis)  /i  ursi  tr.AR  is  rial  hit  iis> 


/S0N0  n  •  )  SOHO  H  INTI  I 


oi  n 
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WTTT^<I|»,  lyiWRJumu,'  I R'U u<nfyi»H>nn'»T- 


■  ’*•■ at  '—"***■  ■  •vanr*' ' ■ 


FOMTMM  NATH 

STHtOL  SYHSOt 


DESCRIPTION  ■  UVM*lw- 


Subscr ipt. 

/corcig/i • 

)  COACIG  X  INT(  1 

Loop  counter 

and 

subscr  1  pt . 

/cmngs/i • 

)  CAINGS  U  INTI  1 

Loop  counter 

and 

subscr 1 pt . 

/(.TWO  /«• 

)  CTWO  U  INTE  1 

Group  number 

of 

nitrogen  atom  In 

/cvcoda/i • 

>  CYCOHA  U  INTE  1 

ring  K . 

Symbol  cod* 

for 

element  or  radical 

/DELTAI  /(  * 

>  DELTAI  M  INTE  l 

1  n  or ogr am  1 1 br try  . 

.oop  counter 

and 

subscr 1 p  t . 

/HEIG0N/( • 

)  HEIGON  W  INTE  1 

Loop  counter 

and 

subscr 1 pt . 

/LESSEN/I  • 

1  LESSEN  W  INTO  1 

Loop  counter 

and 

subscr  1  pt . 

/HOLT!  /<  • 

)  nuiTI  W  INTE  | 

Subscr 1 pt . 

/NRINGS/l • 

)  NA1NGS  M  INTE  I 

Actua  1  location 

In  array  ORDSUPI  used 

/SEAACM/1  » 

>  SEARCH  W  INTE  1 

1 n  the  calculation 

Loop  counter 

and 

subscr 1 pt . 

/SYMTHY/t • 

I  SVMTRV  U  INTE  1 

Loop  counter 

and 

subscr  1  pt . 

/TGAP  /(• 

>  TGliP  W  INTE  1 

l  a 

<  i  > 

Contains  the  site  of  each  ring  In 
the  fused  ring  set  B . 

/tutl 

/< 

1  325  ) 

FIA5TA 

n 

INTE 

IA 

140) 

I A 

1 1  > 

Array  used  for  temporary  storage 

/6LK3 

/( 

6375  ) 

EQUAL 

« 

INTE 

IA 

14) 

EQUAL* 

Pl 

!**TE 

IA 

(  4  > 

1  A 

<  i  > 

Contains  order  element*  of  IB  mould 
have  If  arranged  In  order  of 
Increeitng  magnitude. 

/ORDER 

/<  * 

) 

ORDER 

H 

INTE 

IA 

<  ISO) 

I  ATOM 

( i  > 

Contains  characters  of  multi¬ 
character  chemical  symbol. 

/BL«5 

/I 

?**1  ) 

IOENT 

K 

INTE 

1  Atom 

IS) 

t  at  on 

<  i ) 

Contains  chsrscters  of  multl-mord 

/nULTI 

/(  * 

I 

FSULT  1 

I 

INTE 

lAion 

<  S) 

1 nput  symbo 1 . 

ia 

<  i,j> 

Contains  group  numbers  of  all  core 

mn 

/« 

not  I 

SCAN 

C 

INTE 

it 

i  100, 1 ) 

atom  ligand*  In  group  1  aicept  for 
that  of  t h «  parent  core  atom  (mhlch 
has  already  been  tttnned). 

SHIFT 

STAND 

0 

* 

INTE 

INTE 

1* 

II 

1 100,1) 
1 100, t) 

it 

<  i  > 

Array  the  Element*  of  #»hlch  are  to 

/OR  DE  A 

/(  • 

» 

OAOCfl 

1 

INTE 

II 

1  1191 

be  t  h  e  e  K  t  d  for  or  dor  of  In  craning 
magn  t t  ud#  . 
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I t  APR  TJ  C. 91-14 


FORTRAN  HATH 

symbol  symbol 


DESCR  SPTTON 


s»o»>r«t 

sTdcs  "  IOC 


SUBWQUtMf 

5uTh  u  fvPT 


iiiMi 


VAH 


irm 


ISA 


ISC 


<  I  )  Transfer  f I  eg  , 

=0  ligand  composition  ef  cor* 
atOM  !  stored  In  ne* 
location. 

>0  data  stored  In  ease 

location  of  array  LIGAND, 
(1)  Location  I  contains  the  ring  number 

of  the  ring  ef  ring  component  I.  If 
I  Is  a  non-ring  atom,  location  I  " 

0. 


/Bis i  /i  197*1  svnrnv  h  sure  tea  iioo> 


/6L«J  /( 


IBKD 

( 1  > 

Tranjfer  flag  array  equal  to  0  or  1 
depending  whether  or  not  bond  Is 
.idjacpn*  to  first  character  (1=1)  or 
second  character  (1=2). 

/BLUR  /( 

IBONOO 

( 1 ) 

Contains  ring  locations  of  double 
bonds  . 

/0(.  K  3  /( 

1  BONOS 

<  1 ) 

Contains  ring  locations  of  single 
bonds  . 

/61K3  /( 

IBS 

Temporary  storage  variable. 

/CORCIti/!  • 

191 

Subscript. 

/Ol  TF«F/< • 

IBS 

Transfer  flag. 

/PCUAl A/I  • 

SC 

( 1  > 

Contains  the  number  of  nitrogen 
atoms  in  each  ring  In  fused  set  B. 

/  ft  1  K  3  /<  : 

IC 

Numbe-  of  distinct  fused  ring  sets 

In  molecule. 

/CP  1 NGS/I  • 

IC 

Total  number  of  fused  ring  sets. 

'FUSION/!  • 

IC 

Tottl  number  of  fused  ring  sets. 

/HE  ICO N/<  • 

IC 

Totel  number  of  fused  ring  sets. 

/NAING'/I  • 

A$Y«C 

I 

I  NIC 

IBC 

I  100) 

CHAINS 

0 

INTE 

IBC 

I  ICO) 

US 

1 

1  NTS 

IBC 

(100) 

CISCO* 

I 

INTE 

IBC 

(100) 

CORCIG 

1 

INTE 

IBC 

I  100  ) 

C  TtoO 

1 

INTE 

IBC 

I  100) 

CVCOAA 

I 

INTE 

IBC 

(100) 

EQUAL 

1 

INTE 

IBC 

(100) 

EQUAL A 

I 

INTE 

IBC 

1  100) 

EXTROT 

1 

INTE 

IBC 

(1001 

F|A$TA 

J 

INTE 

IBC 

(100) 

FUSION 

0 

INTE 

IBC 

(100) 

L INf  AA 

I 

INTE 

IBC 

(  100  ) 

PESETA 

.1 

INTE 

IBC 

1  )00> 

5CAN&A 

I 

INTE 

IBC 

1)30) 

SCANCM 

1 

INTE 

IBC 

(100) 

SOHf.’G; 

1 

INTE 

J  PC 

(ICO) 

Svr.RNG 

* 

INTE 

IBC 

(loot 

S VM  f  R  V 

I 

INTE 

IBC 

(100) 

I  GENT 

fl 

INTE 

1  AND 

(  2  > 

iftIPJ  n  3*02  1  FIRSI9  n  IN7E  IC  (90  1 


I  7  APS  7J  0.02-3* 


t  dV 


Eoerawm 

Svinot 

IMbTd 

svftsqi 

DESCRIPTION 

sumputinc 

-J’iJgL' 

“toe*  *.uT 

^TifT*  lTTv>£ 

/KR  0 

ICC 

Number  of  non- aromatic  core  atoms 

/QAlTMESC  • 

i  gauche 

M 

bonded  to  the  central  nitrogen  atom. 

icr 

Tr ansf er  flag. 

StOEtT  /C* 

>  101*7 

JCC 

tCKNM 

Group  numb  of  first  core  atet*  In 

/EQUAt  /<* 

1  EOllEL 

SWf  t 

ICMNff 1 

1  1  gand  KC1 . 

IC(«d«* 

Group  number  of  first  core  atom  In 

/EOUAL 

1  EttUAt 

w 

mu 

JCHM«47 

!  1  gand  KC2. 

lets 

Sum  total  of  all  cl*  Interactions. 

/CISCO*/*  * 

)  CISCO* 

« 

IHTf 

ICIS 

ICIS 

Sum  ^otel  of  all  cl;  Interactions. 

/co*r*r,/<  ♦ 

)  COBClfi 

u 

iH  TE 

1U$ 

(CIS 

Sum  total  of  sll  els  Interactions. 

/SOftMSI/t  • 

>  soangi 

J 

2n:e 

ICIS 

i  cm 

(  t  » 

Contains  grot*  number  of  cor*  stomi 

/Ut-f  /'  36J  1  STAND 

n 

INTE 

icn  * : 

1CT 


IC> 


It* 


It. 


!C** 


i  o 


so 


:o* 


IDS* 


<  t  ) 


<  I  > 


<  I  » 


which  have  been  topologically 
scanned  *  ii  d  Identified.  For 
Identification  purpose,  the  number 
iOOOO  Is  itnred  prior  to  the  group 
number  of  a  terminal  core  atom. 
Transfer  flag. 

Identification  number  of  non- fused 
ring  or  of  fused  ring  set  ft. 

Denotes  number  of  nn tries  In  orrsy 
IlCift. 

Identification  number  of  non-fu<ted 
ring  or  of  fused  ring  set  6 . 

Contains  the  I . d .  number  of  all 
fused  ring  sets  composed  of  beniene 
a  n  d  t  it  r  pyridine -type  structure-}. 
Contains  the  number  of  double  bonds 
In  each  ring  In  fused  set  B. 

0 1  r  e  c  1 1 o  n  of  chemical  band, 
dumber  of  foubl  bonds  In  ring  K. 
Grout  number  of  branch  ore  atom  1. 


,'IOCNT  /(»  J  IUFMT  u  INtE  ICS 

/FiRSrii/«  •  j  rinsf*  w  (use  in 

/#(.KS  /i  5?2I  1  WESSON  "I  INTE  1C* 

/f  IWSTW2V  •  >  EiaST*  U  |M£  1C* 

/:  ht22)  WESSON  n  |>*TE  iC*»  «  1 0  > 

/SLri  n  ">$'<*>  riBSin  m  »nie  id  <  so  t 


f'.n  re 


)  CIS  W  (NTS  >e 


rcvco«*/i»  >  cvcow*  u  inve  ioi 


rstn)  /i  ssoi  i  i.waiNm  i  imie  idm  iiooi 

Siewo  o  lair  I  Oft*  ( looi 


F  are  r»  a.et-H 


!4  ! 


P  U  **  T  fl  0  M  n*TM 

y^c.ni  ivnfiot 


DESCRIPTION 


_ OTOftnr.E _ 

BLOCK  IOC 


Mifianin  |  rF _ iis«r.c 

5USr  u'  i»Kt  var  din 


I  Of  NT 


iO! 

I  0 1 F 

I  0 1 F 

I  JIM 

lore 

IDT* 

,05 

.  ()« 

I  0»t« 


Identifies  chemical  symbol  of  /ioent  /is 

Indexed  atom,  tf  tao  or  three 

characters  are  j  ssent  In  symbol 

these  .r «  packed  nto  one  taord  and 

the  e  *  cess  ■*  )  r  d  s  occupied  by  these 

characters  are  replaced  by  a  bond 

symbol  or  a  blank,  as  required. 

D'rectlon  of  chemical  bond  between 
central  test  core  atoms  XI  and  X2. 

Number  of  ring  locations  between  the 
last  two  double  bonds  In  ring  X. 

Difference  between  site  of  test  ring 
and  the  nu.iber  of  Its  components 
cortalned  in  the  reference  ring. 

Number  of  ring  locations  between  the  /Cvcorr/i  , 
next  to  the  last  and  second  to  the 
last  Double  bonds  In  ring  X. 

Counter  that  specifies  the  number  of  /corcig/*, 
dl  tertiary  ether  groups  p/esent. 


*  f 1  mo  s 

IOENT  r 
SCAN  S 
STBNO  S 


SOCNT 
I  DENT 
IOENT 
I  DENT 


/CIS  /(  »  >  CIS  W  I  NTS  101 

/CYCOBR/*  *  )  CYCOBR  M  INTE  IOIF 

/LESSEN/* •  >  LESSEN  w  INTE  IOIF 

)  CYCORR  U  INTE  IMF! 

'  COBCIG  N  >NTE  I  DTE 


Counter  that  specif ies  the  number 
dlt irtlary  ether  groups  present. 

(  |  , j  )  Contains  the  group  numbers  (1  =  1  and 

b  )  of  a  pair  of  atoms  j,  one  from 
each  branch,  and  the  group  numbers 
(1=2  to  H  and  6  to  8)  cf  their 
ligands  a  h  I  c  h  are  to  he  tested. 
Displacement  between  the  first  and 
third  oxygen  atoms  In  ring  X. 

<|(j)  Contains  the 

5  >  c  f  a  pair 

from  each  rlr. 
t.umbers  (1=2 
their  ligands 
tested. 


of  /DITERE/*  •  >  OITfRE  fl  INTE  1C.TE 


/BLK1  /*  ?T>  OFIFIE  I  INTE  IDX  ,*.»*> 

EQUAL  II  INIE  10*  (a.YYI 

EOUALR  m  INTE  ID*  *»,»»> 


/CYCORH/I*  )  CYCORB  U  INTE  I0« 


group  numbers  (  I  =  !  and 
cf  ring  acorns  j ,  one 
g,  and  the  group 
to  *t  -ind  &  to  8)  of 
which  are  to  be 


/BIT!  /(  ft  ?  5  )  EQUALS  n  .’NIE  IDXR  *8,30) 


1  0  *  "  0  ( 

f  }  Contains  bond  directions  between 

atom  KC1R  and  the  ring  atoms  bonded 
to  It,  exc\tid'ng  atom  KCIPR. 

/ftl  a  1 

.M  0  2  2  > 

t OUALA 

PI 

inti 

lomo 

<  3  > 

(Ult 

Displacement  hetneen  the  flist  and 
second  oxygen  afons  In  ring  K. 

/C  YCO^ff/  *  *  ) 

CVCO0R 

INTI 

(Oil 

If  ( 

i)  Contains  thf  number  of  oxygen  atoms 

In  **cf  ring  In  <  u  > » d  sot  B. 

'HLK'J 

H  5  022  5 

F  IRST0 

w 

INTf 

it 

(  **0  S 

i  f  NO 

End  o  f  run  Input  symbol. 

/Tk*W 

f\  •  ) 

TGM 

u 

INT| 

If  NO 

IE** 

Error  flag 

/8IONO 

n  *  > 

IOND 

0 

INTI 

URR 

~Q 

-1 


no  tr¬ 
ee  r  o  r 


or  . 

present, 


i  r  m  a, ot- a 


fo«?a*Ai 

NATH 

DESCRIPTION 

....  sro**r.f  ^ 

susHOUFtnr 

. USAGE  ,  , 

svnsot 

SVM»Oi. 

fit  IKS  LClt 

SUM 

u  Type 

v  aA  Dim 

IEAM 

Error  flag 

=0  no  »rr or  . 

=  1  irror  p  r  a  *  a  »*  t . 

/CWlNfl/<  * 

I  CHAIN* 

:  iMTf 

UAH 

S  CNN 

Error  flag 

=0  no  error 

=1  arror  present 

/FIND  /(  •> 

1  FIND 

n  imti 

IEAA 

1  FM« 

Error  flag 

=0  no  error. 

=1  error  present. 

/ 1  CENT 

)  I0EMT 

M  IMTf 

i  ENW 

llfifi 

Error  flag 

=0  If  mu 1 t 1  - 1 har ae t tr  Input 

symbol  Is  Identified. 

=  1  If  mu  1 1 ! * e har ac ter  Input 

symbol  Is  not  Identified. 

/MULTI  /{• 

»  MlilTI 

0  1MTE 

iraa 

!E** 

Error  flag 

=0  no  efor. 

- 1  error  present. 

/NEUCOl/l • 

1  NEWCOL 

0  IMTE 

I  tea 

MH* 

Er r  or  flag 

=0  no  error. 

=  1  error  present. 

/*IN(?  /(* 

>  BINS 

0  1  NT  E 

lean 

lE»fi 

Error  f 1 ag 

=0  no  error. 

=1  error  present. 

/SCAM  /(• 

)  SCAM 

M  INT£ 

IE** 

IEM 

Error  flag 

=0  no  error. 

=1  error  present. 

/STAND  /<• 

I  STAND 

M  INTE 

(CAM 

lEAfi 

Error  flag.  If  jtro,  no  error.  If 

non  iero,  Input  or  computational 
error  exists. 

/rent  /i. 

1  TGAF 

M  INTE 

ICAR 

1EIIT 

Flag  that  causes  en  exit  from 
calling  subroutine. 

/CIS  /(• 

)  CIS 

0  INTE 

IEXIT 

lCMiT 

Exit  f 1  eg . 

=0  conditions  satisfied  In 

subroutine  CIS. 

Conti nue . 

=1  conditions  not  satisfied. 

Exit  from  subroutine 

CISCOR. 

/C1SCOA/I* 

)  CISCO* 

I  1  NTT 

IEIIT 

tea  1 T 

Exit  flag 

=0  subroutlna  CIS  executed. 

=1  subroutine  CIS  not 

executed. 

/CyCOAA/I* 

1  CXCOAF) 

1  IMTI 

HUT 

If  «IT 

Exit  fleg  from  subroutine  CIS. 

=  0  els  comput at  1  on 

parf ornad. 

=  1  els  computation  not 

parf nr  m*d. 

/ETTA0T/<*  1 

1  E*T*OT 

1  IMTE 

(EXIT 

IF  AFS  FJ  O.Ot-J* 


FORTRAN 

svnaot. 


FlttTM 

SVfBOt 


IF  I  X 

IFLAOl 

IFLAGI 

IFIAGI 

I  FLAG* 

IFLAGi 

IFLAG2 

1FUNCT 


1FUNCT 


IFUNC1 


I  OH 


DESCRIPTION 


-ilfiSiSi 


L__.  _m'«»0!1LL«I _ 

LOC  Sion  u  irfc  vaa oT# 


(I)  Identifies  character  i  of  • 

particular  symbol  in  SYMBL  ohleh 
haws  been  matched  to  characters  of 
Input  symbol  In  IATON. 

Transfer  flag  of  subroutine  NEWKC . 

Transfer  flag  of  subroutine  NEWKC . 

Flag  used  to  skip  the  Intermediate 
test  and  search  Instructions. 

Operation  flag  of  subroutine  NEWKC.  /ch*iniv<i 


/oli*i  /I  301)  nuill  I*  INTE  IMS  IS) 

/CHAINFWE*  T  CHMHB  «  \KTC  lFLAGi 

/NEWCOL/O  )  NEWCOL  U  1  NTf  IFLAGI 


/NEWKC  /(  i 


Operation 

=  0 

=  1 

Operation 

-0 


Function 

=  0 


=  2 


Function 
=  0 


flag  of  subroutine  NEWKC 
KC  Is  the  required  branch 
junction  a  t o  m . 

KC  Is  not  the  required 
branch  atom  junction, 
flag 

ligands  of  KC  have  all 
been  processed, 
unused  ligands  remain, 
flag. 

symmetry  test  is  not  for  a 
single  aromatic  ring, 
symmetry  test  Is  for  • 
single  aromatic  ring, 
aromatic  ring  has  taofold 
Internal  rotational 
symmetry . 
flag, 
symmetry 


/NEWCOL/t  • 


/NEWKC  /(  ' 


/C  TWO  /{• 


/EQUAL  /( 


for  a 


test  Is  not 
single  aromatic  ring. 

=1  symmetry  test  Is  for  o 
single  aromatic  ring. 

=2  aromatic  r.ng  has  tmofold 
Internal  rotational 
symmetry. 

Function  flag. 

=0  symmetry  test  Is  not  for  a 
single  aromatic  r 1 ng , 

=  1  symmetry  test  la  for  Hi 
single  aromatic  ring. 

=2  aromatic  ring  ha*  twofold 
Internal  rotational 
symmetry  .. 

Counter  that  specifies  the  number  of 
pairs  ol  tors  atoms  (Kl  end  K2 ) 
whose  ligands  exhibit  gauche 
Interaction*. 


/f  OU»LM/(  • 


)  NEWKC  I  INTE  IFLAGI 

>  CHAIMm  I  INTE  IFLAGI 

>  NFUCOl  I  INTE  [FLAG* 

>  NEWKC  C  INTE  I FL AGE 

>  C  TWO  U  INTE  I F  UNCI' 


)  EQUAL  tl  INTE  IFUNCr 


)  EQUAL*  I  INTE  IFONCT 


/CO&CIO/I  *> 


)  COACiO  M  INTE  ISA 


it  m>a  M  o.oi«s* 


146 
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FORTRAN  HATH 

SVIXBOl  SYMBOL 


DESCRIPTION 


STORAGE  SIIARQUT  |NF _ USAGE _ 

'block  IOC  5uBR~  l)  ivVt  y'aT  oM 


IGH 

IGN 

I  GO 

I  GO 

I  GO 

I  GO 

IGS 

IGS 

IGS 

IGS 

I  OS 

IBS 

IGS 

IGS 


Counter  thet  specif!**  the  number  of 
pairs  of  cor*  atoms  (K1  and  K2) 
whose  ligands  exhibit  gauche 
Interactions. 

Counter  that  specifies  the  number  of 
pairs  of  core  atoms  (K1  and  K2) 

■hose  ligands  exhibit  gauche 
Interactions. 

Councer  th*c  specifies  the  number  of 
ether  oxygen  gauche  Interactions 
present  In  the  molecule. 

Counter  that  specifies  the  number  of 
ether  oxygen  gauche  Interactions 
present  In  the  molecule. 

Counter  that  specifies  the  number  of 
ether  oxygen  gauche  Interactions 
present  In  the  molecule. 

Counter  that  specifies  the  number  of 
ether  oxygen  gauche  Interaction* 
present  In  the  molecule. 

Counter  that  specifies  the  number  of 
pairs  of  core  atoms  <K1  and  K2) 
whose  ligands  exhibit  second-order 
Interactions. 

Counter  that  specifies  the  nunoer  of 
pairs  of  core  atoms  (K1  nr.  d  K2) 
whose  ligands  exhibit  second-order 
Interactions. 

Counter  that  specifies  the  number  of 
ring  and  second-order  corrections. 

Counter  t»*t  specifies  the  number  of 
polrs  ot  tore  atoms  C  K 1  xnd  K2 > 
whose  ligands  exhibit  second-order 
Interactions. 

Counter  that  specifies  the  number  of 
pairs  of  core  at  mas  <K1  and  K2) 
whoso  ligands  exhibit  second-order 
Interactions 

Counter  thet  specifies  the  number  of 
pairs  of  core  atoms  <  K 1  and  K  2  ) 
mhos#  ligands  exhibit  second-order 
Interactions. 

Counter  that  specif!**  th#  number  of 
ring  and  second-order  correction*. 

Counter  that  specif!**  th#  number  of 
pair#  of  cor#  atom*  IK1  and  K  2  > 
whose  ligands  exhibit  second-order 
I nteract I  one. 


/GAUCHC/t  ° 

/SORNGl/t  • 

/CORC IG/C • 

/Ol  TERE/I  • 

/6AUCHE/C  • 

/SORNGI  /(  • 

/ClSCOR/t • 

/CORCIG/I  • 

/CRINGS/T  » 

/CTUO  /<• 

/til  TERE/I  • 

/grucme /t  • 

/HEXGON/I  • 

/INTRQT/I  < 


>  GAUCHE  IS  INTE  IGH 

)  SORNGI  I  INTE  IGH 

I  CORCIG  U  INTE  IGO 

)  OITERE  I  INTE  IGO 

)  GAUCHE  N  INTE  IGO 

<  SORNGI  1  INTE  IGO 

I  CISCOR  n  INTE  IGS 

I  CORCIG  w  INTE  IGS 

>  CRINSS  n  INTE  IGS 

I  CTUO  IX  INTE  IGS 

)  0 1  T  f  RE  "  INTE  IGS 

I  GAUCHE  H  INTE  IGS 

I  HE  ICON  m  INTI  IGS 

i  ihtrot  m  :nii  i us 


If  APR  FJ  S.Ot-H 


14/ 


f ortra* 
svnaoi. 

MATH 

SVH80L 

DESCRIPTION 

oiucV  tor 

_ V''"nnoji^F 

SThTr  "  u  ?vKt 

IIS»Of  , 
vcs  oTB 

1  GS 

Counter  that  specifies  the  number  or 
ring  and  second-order  corrections. 

/NR INGS/« • 

)  NfllNGS  PI 

INTI 

IBS 

1  GS 

Counter  that  specifies  the  number  of 
pairs  of  core  atoms  (K!  and  K2> 
whose  ligands  exhibit  second-order 

1 nter  ac  1 1  ens  . 

/ 50RNG 1  /I  » 

\  SOBNGI  I 

I WTE 

IGS 

IGSCIS 

Counter  that  specifies  the  number  of 
pairs  of  core  atoms  (Kl  and  K2 > 
whoso  ligands  exhibit  one  or  two  cla 

1  nteraet Ions . 

/C 1 5C0A/<  *  1 

>  CISCO*  n 

I  NT  E 

IGSCIS 

IGSC1S 

Counter  that  specifies  the  number  of 
pairs  of  core  atoms  (Kl  and  K2 ) 
whose  ligands  exhibit  one  or  two  els 
Interactions. 

/COBClG/t*  I 

•  conciG  u 

I  NT? 

IlSSCiS 

SGSCI5 

Counter  that  specifies  the  number  of 
pairs  of  core  atoms  (Kl  and  K2 ) 
whose  ligands  exhibit  one  or  two  el» 
interactions. 

/SOftftGl/f*  > 

SORNGI  I 

JNTP 

IGSCIS 

s ; 

Storage  flag  for  els  atom. 

/CIV  /<•  ) 

CIS  W 

IWTE 

II 

1 1 

loop  counter  and  subscript 

/FQUAi  /{•  ) 

CGtJAl  M 

INIE 

II 

i  l 

Loop  counter  and  subscript. 

/HF*r,orj/<*  i 

HFXGON  w 

1  NT  f 

1 1 

n 

Subscript  far  1 8  *J  0  array. 

/JOINT  /(•  i 

jden:  u 

:n:e 

1 1 

i  i 

Subscript. 

/lFSSFN/«*  > 

1.SSSCN  « 

th  IE 

II 

i  i 

Ordinal  number  assigned  each  of  the 
Identical  ligands. 

/f.a«F  /<•  » 

sa/ie  w 

I  NT  E 

1 1 

t i 

Code  number  that  distinguishes  each 
type  of  Identical  llgend. 

/5FTUP  /(’*>  t 

serup  w 

INTI 

1  1 

I  •«  c 

<  i ) 

Temporary  storage  array. 

/Rt  <  1  /<  3^/S  ) 

!MH3f  « 

I  NT  E 

IIC.  1  100  » 

<  i  ) 

Contains  the  order  the  subscripts  of 
the  second-order  interaction  data 
would  have  If  the  data  were  arranged 
In  order  of  Increasing  numerical 
order  . 

/  8 1  *  3  / <  ** 0 Ol  > 

COTl'IG  1 
OITFHF  1 

INK 

INTI 

In  1  ISO  » 

in  i isoi 

I'mr  x 

<  i.  j  > 

Contains  the  group  number  pertelnlng 
to  e  particular  core  etom  In  that 
location  of  IP1ATX  that  corrospends 
tn  the  location  in  G  A  J  0  containing 
the  s y iib o  1  tor  the  core  etow. 

/  Bl  *  3  n  \  *01  > 

*  C  AN  * 

bFOtO  0 

I  NT  f 

INK 

in, \I  I  (  SO.  SO  1 
IHAH  (  SO,  SO  ) 

IW 

Subscript  of  arrey  LIGAND. 

/  SC*NOi/l  •  > 

SCAWCH  W 

JNTf 

IN 

if  *p«  n  n.oi->* 


14r'( 


FORTRAN  MATH 

synool  $v*rot 


DESCRIPTION 


_-ii22*01 _ 

stocs  ToT1 


iumoujiwt 
iuTS  nil  t 


jiSMI 

i£W 


or* 


inn 

inn 

iw 


IHfMIM 


Counter  that 

specifies 

the 

number 

of 

groups  with 

1 nterna 1 

rotational 

symmetry . 

Counter  that 

specifies 

the 

number 

of 

groups  b 1 th 

Internal 

r 

otat 1  one ) 

symmetry . 

Counter  that 

spec  1 f 1 e  s 

number 

of 

groups  slth 

1  n  ter na 1 

rotational 

symmetry  . 

Number  of  entries  In 

array 

K  INT. 

/CORCIG/I* 

/CTUO  /»• 

/INTBOT/I  • 


/■Bin  /i 


)  C8BCI6  I  INTE  INN 

)  CTUO  *  IMTC  INK 

)  INTBOT  IS  INTC  INN 

mt  >  EITBOT  IS  INTE  INTnlN 
INTBOT  I  INTE  INTTSIN 


INTBOT 


10 


Searches  for  •'toes  which  hove  three*  /intbot/is 

fold  rotational  symmetry  and  which 

have  not  been  Included  In  the 

•sternal  rotational  symmetry 

contribution.  If  present,  the  data 

are  printed  and  the  total  internal 

contribution  to  the  entropy  Is 

computed . 

Subscript.  /ctwo  /•* 


>  C0NCI6  S  INTBOT 

INTBOT  E  INTBOT 


I  CTUO  U  INVE  10 


lOBRTm  (  I  ) 


Contains  group  numbers  of  asymmetric 
atoms . 


/Bl«3  /<  JMflt  )  »SVHC  0  INTE  10»/>Thll00l 

ENTSVIS  I  INIE  !OEfttnnOO> 

nr.scitN  (  inte  lOEoine  I00) 


IOBO 


lOBeea 


I0BBBB 


IOBTH0 


( I  > 


Contains  the  order  that  tha  I 
subscripts  of  the  date  In  JflC(l,j] 
mould  have  If  said  data  mar# 
arranged  In  Increasing  numerical 
o  r  d  •  r  . 

Courter  that  specifies  the  number  of 
ortho  and  pare  pyridine  correction*. 

Counter  that  specifies  the  number  of 
ortho  end  par*  pyridine  corrections. 

Countar  that  specifies  the  number  of 
ortho  benien*  corrections. 


rn«3  /(  13SJI  LESSEN  I  INTE  I0BD  ( so  > 


/roncir,/i  • 

/ME lGDN/< • 

/COBCIG/I  • 


i  C0BC1G  u 

)  HE  ICON  n 

>  TOHCIfi  U 


INTE  I0BBBB 

INTE  I0BBAB 

INTE  IOBTMO 


IOBTHO 


Counter  that  specifies  the  number  of  /me  igon/i  • 
ortho  bemtnt  correction*. 


I  ME/DON  «  INK  UIBlMQ 


FOATAAN  «ATM 

Svr.ftOi  SYMBOL 


DESCRIPTION 


aw»aa— — mmmrmmmmi  ■  ■■  i  i  — ■■ 

_ S  T Q*  nfijf  SUBROUT  I  r  :( _ USAGE 

61  OCR  IOC  SuUR  U  IVPE  VAR film 


IMIMT 


|AA 


1  AC 


Printout  option*  flag  (OJK). 


K  =  » 

print  data  1 1 brar y  . 

X  =  0 

do  not  print  data 

1  1  brary . 

J  =0 

print  heading  and  cm 
numb ar . 

J  =  1 

do  not  print  heading  and 
cast  number. 

U- 

II 

rv> 

print  heading  but  not  case 
number . 

J  =  3 

print  case  numbeb  but  not 
heading. 

Temporary 

variable  equal  to  total 

number  of 

rings  Identified  thus  far. 

/TGAP  /(• 


/WING  /<  ♦ 


)  r  GAP  W  IN7E  {MINT 


)  RING  W  INTC  IRA 


Denotes  total  number 
molecule. 


of  r I ng  s  ! n  /blkm 


/<  H321  )  CHAINS  I  I NTE  IRC 

CORCIG  I  INTC  IRC 
FUSION  I  INTC  IRC 
HEXGON  I  INTC  IRC 
LESSEN  n  INTC  IRC 
PRINT!  I  INTE  IRC 
RESETR  I  INTC  IRC 
RING  n  INTE  IRC 
SONNGI  I  INTE  IRC 
STAND  0  INTE  IRC 
S VPlfiNG  I  INTE  IRC 


I  nrnD 


Net  number  of  ring  corrections.  /COACIG/I*  )  COflClG  u  inie  iRCno 


I  AC  TOT 

IRC* 

INCH 

*  ACI 

IACO  4  I  ) 

(AC 


Total  number  of  fused  and  non*f used 
ring  sett  In  molecule. 

Value  of  IRC  entered  In  subroutine 
LESSEN. 

Computed  value  for  the  total  number 
of  rings  entered  Into  subroutine 
LESSEN. 

Value  of  IRC  entered  In  subroutine 
LESSEN. 

Contains  the  order  the  subscripts  of 
the  data  In  array  ID^RD  mould  have 
if  said  d  a  1  a  mere  lr ranged  In 
numerical  order. 

Ring  Indicator 

- 0  rlng(s)  not  prasent  I  « 
molecule 

>C  ring**)  present  In  tho 
molecule. 


/RIKA  /(  *323  )  FUSION  0  INTE  IRCTOT 

/CHAIN*/!*  )  CM  A I NW  I  INTE  !«CX 

/l  f  $  $F  N/<  •  I  I  ESSEN  «  INTf  |AC1 

/RING  it  •  <  RING  I  INTf  I ACX 

/B(M  /(  20  ft  >  tOUAl.R  I  INTE  I A  00  <J> 

/BIM  / <  HOI  >  CHAINfA  3  INTE  IR« 

aCM  m  INTC  IRQ 

SIAHO  o  INTE  I A • 


I  bO 


i  f  aaa  n  o  ( ?t*u 


FOR  IRAK  •"ATM 

SYFlfcOL  SVftBOl 


DESCRIPTION 


_ 

bloc*  toe 


-  subroutine 

MlflR  U  TVPE 


USRGE 

VAN 


oM 


'»'»  <l,j) 


Contain*  ring  site  In  j  =  l  and  group 
ngNibtr*  of  ring  components  In  j>t  of 
r I ng  number  I  . 


<Bl*3  /<  n  CRINGS  t  I NVTC  IRING  .*0,303 

C  !  WO  1  INTE  I  ft  I  MG  1*0,301 

CVCORR  I  INTI  I N I  NG  1*0,301 

f IRSTR  I  INTI  IRING  1*0,301 

FUSION  I  INTI  IRING  1*0,301 

MEXGON  1  INTI  IRING  1*0,301 

..ESSEN  n  INTI  IRING  1*0,303 

WRINGS  I  INTI  IRING  1*0,303 

OIVRTN  I  INTE  IRING  1*0,303 

RR1NTI  I  INTE  IRING  1*0,303 

RESITR  I  INTE  IRING  1*0,303 

RING  n  INTE  IRING  1*0,303 

SORNGI  I  INTE  IRING  1*0,303 

SvnHNG  I  INTE  IRING  1*0,303 


IRK 

Bing  nu*btr  of  ring  forming  part  of 
ring  pair  KSUB . 

/FU5I0*/(  * 

}  FUSION  M 

INTE 

IRK 

IRNGI 

Counter  that  specific*  tht  number  of  /conciG/t® 
fused  carbon-ring  correction l. 

>  cone i 6  w 

INTE 

IRNGI 

IRNGt 

Counter  that  specifies  the  number  of  /CRInss/i® 
fused  carbon-ring  corrections. 

)  CRINGS  * 

INTE 

IRNGt 

IRNGI 

Counter  thst  specifies  the  number  of  /CORCiG/i® 

fused  n 1 tr ogen - c ont a  1 n ( ng - r 1 ng 

corrections. 

)  COftCIG  W 

INTE 

IRNG3 

IRNG3 

Counter  that  specifies  the  number  of  /nrings/i® 

fused  nltrogen-containlng-rlng 

corrections. 

)  NRINGS  H 

INTE 

IRNG3 

IRK 

Description  not  Input 

/GAUCHE /<  • 

>  GAUCHE  M 

INTE 

IRR 

IS* 

Number  of  single  bonds  In  ring  K. 

/C  YCORR /< * 

)  CYCOAA  M 

INTE 

IS! 

isa 

Number  of  pairs  of  non-ring  branch 
atoms  found  to  be  equal. 

/equal  /<• 

)  EQUAL  W 

INTE 

ISI 

i* 

Number  of  pairs  of  non-ring  branch 
atoms  found  to  be  equal. 

/eauAiA/(  • 

>  EQUALS  I 

INTE 

IS* 

ISOE 

Number  of  pairs  of  non-ring  atoms 
forming  part  of  a  pair  of  ligand* 
bonded  to  too  separate  rings  and 
ahlch  have  been  found  to  be  equel. 

/DELETE/!  • 

)  DELETE  * 

INTE 

I3BE 

13*1 

Number  of  pairs  of  non-ring  atoms 
forming  part  of  s  pair  of  ilgends 
bonded  to  tno  separate  rings  end 
ahlch  have  been  found  to  be  equal. 

/f UUAlA/*  • 

>  equal  a  w 

INTI 

1  SSI 

1  SOR 

Number  of  pair*  of  ring  atoms  found 
to  be  tque  1  . 

/FQUAl  A/(  • 

>  EQUAL*  * 

INTE 

1  3SR 

1  SIR 

Equ'velent  to  integer  function 

/TQAF  /<  • 

)  TGAF  W 

INTE 

1  SIR 

Sfe’BBCH. 


i t  rrr  n  o.oj-3* 


!bl 


^  i  »■  ii  in  mi 


FORTRAN  HATH 

SvnSOL  SVftSOL 

>set  (I)  Dcnott-t  the  location!  In  the  /#t.«3  /(  3IS3  >  lessen  m  inte  I  SET  <3»> 

reference  ring  where  the  ring  etoms 
•re  Identical  to  atoms  In  those  teat 
ring*  that  are  estimated  to  ba 
completely  contained  In  the 
reference  ring. 

isetj  (I)  Denotes  the  locations  In  the  /si»3  /<  3*<s3  >  lessen  m  inte  iseti  oo> 

reference  ring  ishere  the  ring  atoms 
are  Identical  to  atoms  In  those  test 
rings  that  are  estimated  to  be 
partially  contained  In  the  reference 
ring. 

isua  Number  of  entries  In  array  JCN.  /blkn  /c  34*  >  stand  n  inte  isua 

i  sum  Number  of  atoms  bonded  to  a  /soangi/i*  >  soangi  m  inte  ison 

particular  ring  nhlch  are  also  ring 
atoms . 

IT  Location  In  data  arrays  containing  /tgaa  /( •  >  tgaa  i  inte  it 

ther  mochem  I  c  a  I  data  for  group  If. 

itagi  Transfer  flag.  /cis  /c  •  >  cis  u  inte  itagi 

itagi  Transfer  flag.  /cis  /<  •  >  cis  w  inte  itagi 

IfEm  Variable  used  for  temporary  storage.  /scan  /( •  )  scan  u  inte  iteh 

ITEisa  Variable  used  for  temporary  storage  /neukc/c  i  neu«c  w  inte  mnA 

in  eichange  of  location  operation. 

lifST  Number  of  CO  groups  in  ring  adjacent  foxy  a  !>■»/(•  >  oi»»ta  o  inte  itest 

to  ring  atom  LOCK . 

Flag  set  to  one  If  non-ring  ligands  /S0Angi/«»  >  soangi  u  inie  itest 
are  bonded  to  the  ring.  Otherwise 
equal  to  ler  o . 

Specifies  the  number  of  CO  atoms  /c*coaa/<»  »  l^coma  i  inte  itesti 

adjacent  to  a  designated  ring  atom. 

in  Flag:  -0  no  ring  present  In  /stand  /( •  )  stand  u  inte  iti 

molecule. 

■  I  ring  present  In 
molecule. 


i  test 

itesti 


ESCR IPTION 


SOBAflUT  | N‘E  USAGE 

Tuba  uTVae  vaa  oTH 


IT  AAA  M  0.01-34 


\bJ 


FORTRAN  MAT* 

SYMBOL  SYMBOL 


DESCRIPTION 


Contains  structural  data  for  eora 
eto*  I  at  j=l  and  fo  r  ligands  at 
j=2  to  j=5.  Contents  of  column  k 
k  =  l  ehesileal  symbol  of  component, 
k=2  rom  coordln*t>  of  spaclaa  (from 
Input  structural  grid),  k  =  3  column 
coordlnata,  j  =  1  and  k  =H  group  number 
of  parent  core  atom,  j  net  1  and  k=«* 
direction  of  ligand  bond,  j=5  bond 
type  and  j=6  group  number  of  core 
atom. 


storage 

subroutine 

USAQI 

SLOC.I  IOC 

4uBR  It  TYSi 

VAR 

TTm 

/BLR!  /(  IIS) 

osymc 

I 

INTE 

IS 

1  too, s. 

CHAIN* 

i 

INTE 

1 1 

( 100, », 

CIS 

! 

INTC 

II 

« 100,5, 

eiscoe 

1 

INTI 

II 

( 100.5, 

CORCIS 

1 

INTI 

II 

« 100,5, 

CTWO 

1 

INTI 

III 

< 100,5, 

CYCoee 

1 

INTI 

II 

(100,5, 

DELTAI 

1 

INTI 

II 

< 100,5, 

DEL1A2 

1 

INTI 

IX 

<100,5, 

D  E  TEOC 

1 

INTE 

II 

« 100,5, 

EQUAL 

1 

INTI 

ii 

< 100,5, 

EQUALR 

I 

INTI 

IX 

< 100,5, 

EXTROT 

1 

INTI 

II 

( 100,5, 

FIND 

* 

INTE 

IB 

( 100,5, 

GAUCHE 

I 

INTI 

ii 

< 100,5, 

HEXGON 

1 

INTE 

i  i 

<  100,5, 

INTROT 

1 

INTE 

■I 

(  100,5, 

t INEAR 

I 

INTE 

ii 

« 100,5, 

WRINGS 

1 

INTI 

it 

'  100,5, 

oxyht* 

1 

INTE 

ii 

'  100,5, 

PRINT! 

1 

INTE 

ii 

(  100,5, 

SCAN 

H 

INTE 

ii 

(  100,5, 

SCANBR 

1 

INTE 

ii 

< 100,5, 

5CANCH 

I 

INTE 

ii 

<100,5, 

SHIFT 

* 

INTE 

1 1 

< 100,5, 

SORNGI 

1 

INTE 

1 1 

<  100,5, 

ST  ANT- 

* 

INTE 

1  H 

<  100,5, 

SYPIRNG 

i 

INTE 

ii 

<  100,5, 

svnTRv 

I 

INTE 

1  X 

<  100,5, 

It 

Location  j  In  NBC(l,j]  of  uppermost 
branch  atom  In  previous  chain. 

/CHAIN*/! ♦ 

)  CHAIN*  I 

INTE 

it 

It 

Location  j  In  !\IBC<l,jl  of  uppermost 
branch  atom  In  neu  or  previous 
chain. 

/NEUCOl/C • 

>  NEUCOl  0 

INTE 

it 

II 

Number  of  chain  elements  from  the 
start  of  the  chain  up  to  but 
excluding  the  branch  atom. 

/CHANGE / 1  * 

>  CHANGE  W 

INTC 

1 1 

II 

Storaga  flag  for  ligand  bonded  to 

atom  K  1  . 

/CIS  /<• 

>  CIS  I 

INTE 

1 1 

=  -l  ligand  Is  not  stored  and 
used  In  the  els  test . 

=0  ligand  Is  stored  and  used 

In  the  cl?  test. 

=1  ligand  Is  stored  and  used 

In  the  els  test  tut  II  Is 

reset  to  -  I . 


ii 

Storaga  flag  for  K1  ligands  used  In 
subroi.tlna  CIS. 

/nscoA/c  • 

)  CISCO*  1 

1  NT! 

1  1 

n 

Bond  type  flag  of  first  ctntril  tast 
core  atom . 

/GAUCHE • 

1  GAUCHE  id 

INTI 

1  1 

n 

Lomer  limit  of  location  In  ORDSUIR 
used  In  the  celculatlon. 

/Sf ARCH/I  • 

)  SEARCH  W 

INfl 

I  1 

It 


Storags  flag  for  *  I  ligands  used  In 
subroutine  CIS. 


/  5  o  a  no  i  /  i  • 


)  soan&i  w  lets  1 1 


FQftlftAfc*  NATH 

svnsoi  svhdol 


DESCRIPTION 


_ M2.SM1 _ 

8LUCA  IOC 


_ 5UBBOUT I NF  OS ARE 

So 8»  U  ~t  V Pi  VAft 


oTW 


II 

Number  of  chain  elements  one 
location  above  the  branch  atom  to 
the  end  of  the  chain,  (upper 
residual  ) . 

/CHANGE  M * 

)  CHANGE  W 

mre 

11 

II 

Storage  flag  for  ligand  bonded  to 
atom  K2.  Conditions  art  the  same  as 
for  flag  11. 

/CIS  /<• 

)  CIS  1 

INTE 

12 

It 

Storage  flag  for  K2  ligands  used  in 
subroutine  CIS. 

/CISCOft/1 • 

)  C ) SCOR  1 

Iff  TE 

II 

It 

Bond  type  flag  of  second  central 
test  core  atom . 

/GAUCHE/I • 

>  GMICHE  u 

INTE 

it 

II 

Upper  limit  of  location  In  ORDSUM 
used  In  the  calculation. 

/SEARCH/!  • 

)  SEARCH  M 

JNTE 

it 

II 

Storage  flag  for  K2  ligands  used  In 
subroutine  CIS. 

/SOANGI ✓( • 

)  50HNG 1  W 

INTE 

it 

J 

Loop  counter  and  subscript. 

/CMAINrt/! • 

>  CHAJNrt  w 

INTE 

J 

J 

loop  courier  and  subscript. 

/CHANGE/!  • 

>  CHANGE  M 

JMTE 

j 

J 

Loop  counter  and  subscript. 

/CORCIu  '!  • 

)  CORCIG  k 

INI  C 

j 

) 

Loop  counter  arid  subscript. 

/CTuO  /(  • 

>  erwo  u 

INTE 

J 

J 

Loop  counttr  a r. d  subscript. 

/LVCQRR/*.  • 

)  CYCORR  V 

JNTE 

J 

J 

Loop  renter  and  subscript. 

/»  QU*L  /(  * 

>  EQUAL  W 

INTC 

J 

J 

Loop  counter  and  subscript. 

/f  0  AI  R/<  • 

>  EQUAJ.A  W 

JNTE 

J 

J 

Loop  counter-  and  subscript. 

/E ITHOf /(  • 

>  f  *  TROT  W 

INTJ 

J 

J 

loop  counter  and  subscript. 

n  1  AiTA/»  • 

)  FIRSTA  W 

INTE 

J 

J 

loop  counter  and  subscript. 

/FUSION/!  • 

*  FUSION  y 

INTI 

J 

J 

loop  counter  and  subscript. 

/HE HGON/I  * 

i  hi  icon  y 

INTE 

J 

J 

Loop  countar  end  subscript. 

/JOINT  /I* 

>  JOINT  W 

1  NT* 

j 

i 


Loop  counttr  And  tubicrlpt. 


/if  S',f n/j  • 


)  ItSSIN  M  INTf  J 


RORTRAK  HATH 

SVMKOi.  svntot. 


DESCRIPTION 


_ 'iHiSJiSd _ _ 

BL"C*  ToT^ 


, _ MJgHPujtwt .. '.»s»r.f 

5 tie*  u  tyre i*S  oM 


J 

L  oop 

counter 

and 

sub  scr 1 pt . 

/nutri  /<• 

>  nuLti 

<*  IfSTI  J 

J 

Loop 

counter 

end 

sub  scr I pt . 

SN£UC0L /f • 

)  NEWCOL 

W  1CVTC  J 

J 

Loop 

counter 

and 

subscript. 

/NEUKC  /<• 

I  NEWKC 

M  IN'E  J 

J 

Loop 

counter 

and 

subscr  t  pt . 

/NR.NG$/< • 

I  NR  1  KGS 

a  INTE  J 

J 

Loop 

counter 

and 

subscript. 

/Nun&ER/< ♦ 

)  NUMSSA 

M  INTE  J 

J 

Loop 

counter 

and 

subscr l pt . 

/ORDER  St* 

)  ORDER 

W  INTE  J 

J 

Loop 

counter 

and 

subscript. 

/PR1NT1/T * 

)  RR 1  NT | 

U  1 NTE  J 

J 

Loop 

counter 

and 

subscr 1 pt 

/RING  /<  * 

)  RIN6 

U  INTE  J 

J 

Loop 

counter 

and 

sub  scr 1 pt . 

/SAME  /<* 

)  SAME 

U  INTE  J 

J 

Loop 

counter 

and 

subscript. 

/SCAN  /(• 

)  SCAN 

W  INTE  J 

J 

Loop 

counter 

and 

subscript. 

/SCAJJOi  /(  • 

)  SCRWIA 

U  INTE  J 

J 

Loop 

counter 

and 

subscr 1 pt . 

/SCAMCH/C • 

t  SCANCM 

W  INTE  .1 

J 

Loop 

counter 

and 

sub  script. 

/ $€  TUP  /I  • 

)  SETUP 

W  INTE  J 

J 

Loop 

counter 

and 

subscr 1 pt . 

/SHIFT  /<* 

>  SHIRT 

U  INTE  J 

J 

Loop 

counter 

and 

sub  script. 

/SOANGI/t * 

)  SORNGI 

M  INTE  J 

J 

Loop 

counter 

end 

subscr Ipt. 

/stand  n  * 

1  STAND 

U  INTE  J 

J 

Loop 

counter 

end 

subscript. 

/SUHATH/C  * 

)  sunatn 

H  INTI  J 

J 

Loop 

counter 

end 

subscript. 

/ $vnr>Nr,/i  • 

)  SvnANO 

M  INTE  J 

J 

Loop 

counter 

and 

subscript. 

/SVrtTAV/l • 

>  syiatry 

H  INTE  J 

J 

Loop 

counter 

and 

subscript. 

/TGAP  /«• 

1  T0»R 

M  INTE  1 

it  arm  n  8.01-1* 


ibb 


FOSTHAN  HATH 

SvMOL  SVHBOL 


DESCH I P  T I  ON 


TL  o  c «  lOc 


susaomrit. 

SOBH  U  TYPE 


-UIML 

VAR 5T« 


J A 


Loop  counter  and  subscript. 


/■STAND  /(<  >  STAND  W  INTE  is 


J90ND  (  |  ) 


JM  (  |  ) 


Contains  ring  c ora  atom  to  which 
h«avy  ligand  Is  bonded. 

Counter  designating  the  location  In 
array  LIGAND  where  the  composition 
data  of  a  particular  ligand  of  core 
atom  I  are  stored. 


/iJLKJ  H  3701  )  MEXGON  n  INTE  iSONO  noo> 


/'OIK 3  /<  33C2  >  ASVMC  1  INTE  JBA  (100) 

ElTAOT  I  INTE  JBA  (  100) 
SCANDR  N  INTE  JBA  4 100 ) 
SCANCH  H  INTE  JBA  4 100 ) 

Svcitav  n  inte  jba  i  loot 


JC 

Counter  limit  and  subscript. 

/MULTI 

n  • 

)  WULTI 

M 

INTE 

JC 

JC 

Identification  number  of  group  whose 

/SHIFT 

/c  • 

>  SHIFT 

I 

INTE 

JC 

ligand  data  storage  position  la  to 

be  altered. 

JC 

Group  number  of  core  atom  bonded  to 

/STAND 

/<  • 

)  STAND 

U 

INTE 

JC 

JDIf 


core  atom  KC  whose  ligands  are 
Identified  and  classified  In  the 
scan  operat I jn . 

Number  of  residual  ring  atoms  which 
are  to  he  added  to  all  the  chains. 


/aeseta.m  » 


>  RESETS  U  INTE  JDIF 


JOL 


JOONE  (  |  ) 


Counter  denoting  number  of  test 
rings  partially  contained  in 
reference  ring. 

Location  I  Is  set  equal  to  1  If  the 
ring  atom  ot  group  number  I  has  been 
tested.  Otherwise,  it  equals  0. 


/L  ESSEN/I •  )  I  ESSEN  W  INTE  JDL 

/BIK3  /(  350?  )  DELETE  0  INTE  JOONE  (100) 
EQUALS  H  INTE  JOONE  ( 100) 


JOONE  (  |  ) 

JOONE  (  |  ) 

JOT 

JOt 


Aromatic  ring  flag  /Bins  /(  ssai  >  meigon  n  inte  jdone  ( so  > 

=0  ring  I  Is  a  ben.  n(  or 

pyrldlne-type  ring  forming 
part  of  a  fused  ring  set. 

Identities  ring  ligands  which  have  /blkn  /(  zbz  i  >  svnsNG  n  inte  joone  (  1 to ) 
<  I  )  or  have  not  <  0  )  been  checked 
against  other  ligands  for 
s I  ml  I ar I ty . 

Counter  denoting  number  of  test  /ifSSCN/(»  I  i  essen  u  INTE  JOT 

rings  completely  contained  In 
ref erence  ring. 

Temporary  storage  variable.  /cvcoss/(»  icvconamintejd) 


JOI 


JOt 


0 1  s  p  I  ac  one  n  t  between  the  first  and  /oxyativi*  >  usvatn  w  inte  joi 
second  CO  groups  In  ring  K. 

Tenporary  storage  variable.  /cvcosn/i  »  )  cvcoss  u  inte  jo t 


JOt 


Displacement  between  atom  LOCX  and  /oivatw/i*  i  oiyatn  u  inte  joi 
the  first  CO  group  In  ring  K. 


I T  apa  n  o.ot-JS 


IMS 


DESCRIPTION 


Upper  limit  for  bona  t er n i n a t  i  on 
loop  In  subioutlne  B0N3. 

Upper  limit  for  send  terminetlon 
I  oop  . 

Upper  limit  of  loop  counter. 

Upper  limit  of  loop  counter. 

Upper  limit  of  1 o o p  counter. 

Upper  limit  of  loop  counter. 

Upper  limit  of  bond  termination  loop 
of  Indited  atom  number  1  ligand. 

Upper  Hmlt  of  loop  counter. 

Upper  limit  of  loop  counter 

Upper  limit  for  bond  termination 
loop  In  subroutine  BONO. 

Upper  llmlv  of  loop  counter. 

Upper  limit  of  loop  counter. 

Upper  limit  of  bond  termination 
loop. 

Upper  limit  of  loop  counter. 

Upper  limit  for  bend  tcmlnotlun 
loop. 

Upper  licit  o  f  loop  counter. 

"'pper  Mmlt  of  cycle  counter. 

Upper  limit  of  >-ond  termination  I  r.  op 
for  ligand  one  . 

Loner  limit  of  bond  te-mlratlon  loop 
In  subroutine  00 NO. 

loter,-  limit  Of  bend  termination 
loop. 


sroaoGE  ycepuTiNf _ »sar,e 

—  block  loC  5'uuh  u'Vvhe  vaifoTS 

II  M  mu  mini  eaaea—  mew—  ■eirmw  . . 


/ AS  S I GN/< • 

>  ASSIGN  0 

DUE 

jf 

/BONO  /( * 

)  BONO  1 

INTE 

JF 

/CMA I N*/<  * 

)  CHAIN*  W 

INTE 

JF 

/cnani;f./<  • 

>  CHANGE  W 

INTE 

JF 

/C0«CIG/< ♦ 

»  CORCIG  N 

INTE 

JF 

/Cl  u0  /t* 

)  C TWO  14 

INTE 

JF 

✓  FIND  /(• 

i  Ft  NO  1 

inte 

JF 

/F'JS,0W/I  # 

)  FUSION  W 

i  ere 

JF 

/HEXGCN/I  • 

)  HLXGON  W 

INTE 

Jf 

■MOcNT  /<  • 

)  I  DENT  | 

INTE 

Jf 

/LESSEN/ ( • 

i  LESSEN  U 

INTE 

Jf 

/neuhc  n  * 

)  NEWAC  14 

DIE 

J> 

/MUMBLR/C • 

)  N'JrtBFR  1 

IN1E 

y; 

/0R0FR  /< ♦ 

)  orofa  H 

iNie 

JF 

/:c  an  /<* 

i  SCAN  1 

’Nil 

J* 

/GOR’JG! /I  * 

)  SORNGI  u 

INIE 

Jf 

/ s r und  /( « 

)  STANS  M 

Dir 

JF 

/N»J.*  !*E  A/*  * 

■  ‘HF.fHR  0 

IN ’I 

Jf  F 

/ASS  >  f»N/<  • 

>  **  S  5  (  G  N  0 

INIE 

J» 

/BO'.Q  /i* 

>  BONO  I 

INI* 

JJ 

10/ 


- - 


FORrn.-.N  r»;« 

Svi  <101  SvmBOl. 


DESCRIPTION 


_  ''i?r10J/J  IflF _ HS»AJ__ _ 

" t,Y  '<-«  IOC  SuLh  u  rvKt  va'h  oie* 


Lower  lln.lt  of  loop  counter. 


/crwo  /<  *  >  cruo  n  INTE  Jl 


Lccier  limit  of  bond  tormlnatlon  loop 
nf  Indexed  atom  number  1  ilgand- 

Lower  limit  of  bond  termination  loop 
In  subroutine  BOND. 

Lower  limit  of  bond  termination 
loop. 

Lower  limit  of  bond  termination 
loop. 

Lower  limit  of  bond  termination  loop 
for  ligand  one. 

Loop  confer. 


/FIND  /« •  (FIND  I  INJE  Jl 


/ ! OF  NT  /(  .  /  tOENT  I  INTE  Jl 


/Nljr.BFN/< «  )  NuriBER  I  1NIE  Jl 


/SCAN  /(  •  >  SCAN  I  INfE  Jl 


/f.onOEA'E*  >  NifBE A  0  INTE  J  1 1 


/BONO  /I  •  >  BONO  0  INTE  JJ 


Ring  location  para  to  nitrogen  atom.  /C'/Ct)fiA/(  •  >  cycohr  u  inte  jj 
Variable  user!  for  temporary  storage.  /0!TH'E/<»  )  ditere  u  inte  JJ 


loop  counter. 


/ E OlJAL  /(  •  )  E  .UAL  IS  INTE  JJ 


Loop  counter  and  subscript. 


/f(JSIO!|/(  •  >  FUSION  U  INTE  JJ 


Ring  number. 


/HI  «C0N/l  •  »  HE  ICON  W  INTE  JJ 


Identification  number  of  test  ring  /l  E  sst  N/i  •  iifSSENuin.IJJ 


Counter  ultimately  equal  to  NOBR 


/SIAnO  /(  •  )  STAND  IS  INIi  JJ 


Ring  ncnbe-  or  non-ring  ligand 
ui>*l|bT  Identifier. 

Number  of  entrlis  In  array  JROND. 


/HE»r.ON/l-  I  HE  »C,0N  w  inie  J* 


/ !  F  l, ON/I*  .1  Hf  If.ON  W  INTE  JOA 


Contain*  subscripts  of  I  RING  data 
arranged  In  order  of  Increasing  ring 


/  01  K  3  /I  J0S5I  IFSStN  1  INTF  JOflp  (SO) 


Fgunl  to  digit  K  of  I  PR  I  ML  I0JK>. 


/lone  /■•  i  lose  is  inie  ifaint 


il^j)  Con  talus  Incoipstablilty  factors  and 

ring  nuibers  of  JR  IMG  d  .  t  a 
pertaining  To  fast  r  I  n  j  ;  that  »  r  # 
partial  j  y  contained  In  th«  refartncs 
ring. 


/Bin)  /(  1ISJ)  IFSSEM  n  INIE  J R C  IS0,l) 


t  a;  s  n  o  o.'.*  is 


EORTMN 

SYMBOL 


HATH 

SYMBOL 


DESCRIPTION 


-.  siaM£I  _  -  subroutine  ...us»ot 
si ocf  toe  5uFS  u  type  v*a TSTs 


JROIF  (  j  ) 


JOINS  (  |  ,  j  ) 


JS 

JSCRN  <  |  > 


jsror 


JSTORE  (  |  ) 


J  SUN 


JT 


JUNCT  (  1  ,  J  ) 


JW 


Contfbi  the  computed  difference* 
between  the  ring  slit  and  tho  number 
of  atoms  of  the  test  rings  that  *rt 
siso  contained  In  the  reference 
ring.  Referred  to  as 
Incompatibility  factor. 

Contains  the  negative  group  number 
of  test  ring  atoms  not  eontilned  In 
reference  ring  or  th*  ring  locations 
In  the  rj fare  nee  ring  mhere  the  teat 
ring  atoms  art  located.  The  value 
is  stored  In  location  j  which 
corresponds  to  the  location  of  the 
test  ring  »tor  . 

Lower  limit  of  character  search 
eye  I  a  eountar . 

Scan  flag 

=0  ring  I  has  not  been 
tested. 

■:  1  ring  I  has  been  tested. 

I  location  In  arrays  IR1NG(I,j)  and 
NRLOCI  I  )  to  .uhleh  ring  dat«  are 
shifted  when  one  or  more  rings  are 
d  I  s carde-t. 

Contains  ring  numbers  of  s  I  I  - 
membered  rings  composed  of  carbon 
and  Z  nltroge..  atoms  and  devoid  of 
double  bonds. 

Counter  denoting  number  of  atoms  of 
s  particular  test  ring  that  are  also 
present  In  the  reference  ring. 
Identification  number  of  group  to  be 
tested  for  jeeond'Order  multlbls- 
bond  aright  contributions  If 
present,  these  are  added  to  group 
•eight  of  “T . 

Contains  group  number  of  core  atom 
ligand  1  bonded  to  branch  atom  j 
•here  j  Is  also  the  group  number  of 
the  branch  atom . 

Subscript  for  printout  legend. 

Setting  denotes  ohether  the  e  » t  e  r  *  a  I 
symmetry  number  ctn  be  computed. 


/BLK3  /(  110JI  LESSEN  n  1  Niff  JBCU  ISO* 


/BLK  3  /(  I8SS)  LESSEN  N  INTE  JB  S  MG  (SO, 301 


/IDENT  /!  *  >  IDENT  U  INTE  JS 


/BLK  3  /(  3561  1  FUSION  N  INTE  JSCKN  !  SO  > 


'LESSEN/I*  )  LESSEN  W  INTE  JSTOP 


/BLK3  /(  6308)  NRINGS  (1  INTE  JSTOPEI3I 


/L  E  $  SE  N/l  •  )  LESSEN  id  INTE  JSUN 


/OCLTat/C»  )  DEL  Tat  I  INTE  jT 


/auo  n  iro3i  chbinis  o  inie  junct  cs.ioot 

NEUKC  N  INTE  JUNCT  (  S, 100  ) 


/  e  I  Its  /<  5  S  I  COS  C  I  0  0  INTE  JW 

ENtSVIS  I  INTE  JW 

f«TMOI  0  INTE  JW 

EIRSIR  0  INT6  JW 

LINEAR  0  INTE  JW 

Svr.riNG  o  inti  jw 


JI 


Subscript. 


/t  IRSTR/T  * 


i  f  IRST8  W  INK  JS 


I r  era  ft  o.oi-SE 


1W» 


Ifcu. 


font saw 

;iAYN 

DESCRIPTION 

STOHAT.p 

r»V-’RtKl f  INF 

US»GE  ,  , 

svkrul 

svrooi 

ttlOC* 

LUC 

su:m  u 

1  VPfc 

VAR  DIN 

SI 

Sub  script. 

/lessen/t  • 

> 

LESSEN  W 

INTE 

Jl 

J* 

Temporary  storage  variable. 

/QROER  /<* 

) 

order  y 

INIE 

JX 

JV 

Subscript  for  printout  legend. 

Setting  denotes  whether  the  number 
of  enantiomers  and  meso  compounds 
can  be  computed  In  total. 

/BLr?  /* 

(  0  } 

CORCIG  0 
ENTSVrt  I 
F3RSTR  0 
WAX  C  HN  0 

INTE 

1NTE 

INTE 

INTE 

JV 

JV 

jv 

JV 

Jl 

Subscript  of  one  of  the  two  ligands 
under  compar 1  son. 

/FOUftI  /t* 

) 

EQUAL  y 

INTE 

ji 

Jl 

Flag  which  Is  activated  If  character 
symbol  Is  not  found  In  cycle. 

/ 1  DC  NT  /<♦ 

) 

IOENT  U 

INTE 

ji 

j» 

Location  In  11  of  data  of  non-core 

1  1  g  and  . 

/SCAN  /<• 

) 

SCAN  M 

INTE 

ji 

Jl 

Subscript  of  array  KSAPIF. 

/iFTUP  /( • 

> 

SETUP  W 

INTE 

ji 

Jl 

Subscript  and  flag. 

/SVMhNG/*  • 

> 

SVPIRNG  y 

INTE 

ji 

Jl 

Subscript  of  one  of  the  tmo  ligands 
under  comparison. 

/ v  QUAL  /<  • 

> 

EQUAL  W 

INTE 

ji 

J  2 

Flog  uhleh  Is  activated  If  character 
symbol  Is  found  In  cycle. 

/IOFNT  n  • 

1 

IOENT  y 

INTE 

ji 

J* 

Subscript. 

/LESSEN/*  • 

) 

LESSEN  w 

INTE 

ji 

J* 

Location  In  IX  of  data  of  core 

I  1  gand. 

/  SCAN  /<  • 

) 

SCAN  y 

INTE 

ji 

Jl 

Subscript  of  array  KSAflE, 

/SETUP  /I# 

) 

sf  tup  y 

INTE 

ji 

Jl 

Subscr i pt . 

SSVHRNG/C • 

1 

SYWrtNG  U 

INTE 

j? 

« 

flow  coordinate  of  Indeaed  core  atom. 

/ASSIGN/* • 

) 

ASSIGN  1 

INTE 

K 

1 

loop  counter  and  subscript. 

t  AS>nC  /(  • 

i 

ASvr»C  y 

IN1E 

K 

1 

loop  counter  and  subscript. 

/C 1 SCOR/* * 

) 

ciscor  y 

INTE 

K 

« 

Loop  counter  and  subscript.  Also 

1  .  C .  num.-tar  of  ring  eitnlned  In 
subroutine  CYCOflH. 

/rORCIG/*  • 

> 

CGRCIG  y 

INTE 

* 

« 

Identification  number  of  ring. 

/C  TWO  /I  • 

> 

C  T  wo 

INK 

ir  *;*a  n  q.oi-h 


ISO 


fgrtrnn 

SVNlOL 


N«VH 

SVfWOL 


DESCRIPTION 


a 

identification  nuabtr  of  ring. 

/CVCORft/l  w 

)  CYCORR  1 

INTI  K 

ft 

Loop  counter  and  subscript. 

/DELETE /(  • 

»  OElCVf  0 

!  NTE  R 

ft 

Loop  countor  and  subscript. 

/ENTSVK/I  * 

i  entsyn  w 

INTI  X 

« 

Loop  counter  and  subscript. 

/FQURL  /'* 

>  Count  u 

JPTC  K 

Loop  counter  and  subscript. 

/EQUAL R/< « 

>  Eouate  u 

I NTE  ft 

Loop  counter  and  subscript. 

/EXTROT/I • 

>  EXTROT  M 

iNTff  X 

Entry  value:  roe  coordinate  of 

Indexed  aton.  Exit  value:  roe 
coordinate  of  core  ato*. 

/FIND  /<• 

>  FINS  R 

INTC  K 

Loop  counter  and  sutsserlpt. 

/F  1  AST  A  /<  * 

)  FIRSTS  H 

1  NTE  X 

Loop  counter  and  subscript. 

/FUSION'*  * 

!  FUSION  to 

INT€  K 

Loop  counter  and  subscript. 

/WEIGON/i • 

V  HFJGilN  to 

INU  1 

Roe  coordinate  of  first  character  of 
symbo  !  . 

/  1  DtWT  * 

)  I  DENT  n 

INIE  ft 

Loop  counter  and  subscript. 

/  JMROT/<  *■ 

1  INIROT  M 

1 WTE  ft 

Identification  number  of  reference 
ring. 

/A  SSKM/<  • 

1  l ESSEN  to 

!INTE  ft 

Loop  ccunter  and  subscript. 

/UNFnR/(  • 

1  UNERR  to 

INff  ft 

Loop  counter  and  subscript. 

/RRXCHN/I  * 

i  naxCF'N  to 

IMF  ft 

Loop  counter  and  subscript. 

/«UL  Y  l  /i  • 

»  MILT  I  to 

INff  ft 

Loop  counter  and  subser.pt. 

/HH INGS/l  • 

»  NftJWGS  to 

INT|  ft 

Roe  coordinate  of  Indexed  core  atom. 

/NU*ftEA/t  * 

i  NURSE*  1 

?NYf  ft 

ft 

Ring  number  uf  ring  under 

/ORVR Vn/I * 

)  OlVftTN  1 

INTI  a 

!  m p ic 1 1  on . 

*  Loop  counter  *nd  subscript,  also  /reseir/i»  »  «  ikti  « 

r  I  n 9  nu*ii*r  . 


iei 


If  *PM  IS  f.OI-H 


»  <-.»»n  Ilawwmw  . T  MW^i.Kiw  . . ■  ■!,>.,«  m.mm  -*mrn.*mir>k3m 


Fd  «n<A*  mat* 

svr'ot.  SVHbOi 

OE  SCR  JPTION 

L  \}'C 

Vt^OuT  |M| 
fc-.ia  u  Vvet 

IjSMtf _ 

VAN*  OM 

« 

coop  counter  and  subscript. 

/MING  /<  <“ 

i  *  A  WC-  U 

JMTC 

ft 

s 

Loop  counter  and  subscript. 

/SAME  /I* 

#  SAME  M 

f  NVf 

K 

X 

Roh  co ordinal#  of  cere  atom  In  army 
GRID. 

/SCAM  X* 

)  SCAM  1 

WE 

ft 

t 

L.cop  counter  and  subscript. 

fSfc'IUP  /(• 

)  St  TUA  J 

!  NTE 

X 

1 

Loop  counter  and  subscript. 

/$CRNG!/< > 

)  SCRNS1  W 

IMTE 

r. 

X 

Ron  grid  coordinate  at  core  atom. 

/STAND  /t» 

)  STAND  M 

1  NTE 

X 

ft 

Loop  counter  and  1  j  b  s  c  r 1 c  t  . 

/Syr.RNCf/i  " 

1  Swr.«MG  w 

*  mi  r 

a 

ft 

Loop  counter  sod  subscript. 

/Symtry/i*  ) 

l  S»'MTRft  V 

1  nf  TE 

» 

ft 

Loop  coulter  and  subscript. 

/toa*  /<  ♦  j 

TGfU  w 

1NTC 

ft 

k  c  t  t  n 

Tram  fur  flag  which  prevents  storage 
of  the  ligand  data  already  defined 
at  the  start  n  t  the  atomic 
composition  evaluation  cycle. 

/S\:angm/c*  > 

SCANS*  1 

lN\i 

KAF  TEA 

ft  A  F  T  E  ft 

Transfer  V  f  a g  which  prevents  storage 
nf  t L e  ligand  data  r i r c a d y  defined 
at  the  start  of  t  h  *.  atomic 
composition  evaluation  cycle. 

/SVi’iT H1/»  *  ) 

SVM’XY  W 

I  NTT 

XAFTf A 

ft»Nf 

Denotes  which  of  the  t  :s  0  central 

/f.Ai;C wf  fi  • 

f>  Al/E  Hr  W 

I  N  <  f 

ftANE 

a t  *  "i  i  has  no  unsat orated  bend*. 

«»«o  (I)  Ring  ioraJItiM  (II  tor  tain.  i  ng  nim  /.  no*  >  -lYHHur,  «  ink  mho  (»  * 

identical  ligands  act  assigned  the 
same  Identifiers  (KS!  In  tit  is  array. 

«•  Value  of  KY  at  the  beginning  pf  the-  /K'SK’n/i  •  1  rusiom  w  ink  «* 

cycle. 


C5CNI 


f  f  U 


SC 


(  I  ) 


Contains  the  ring  numbers  of  t  h  * 
bona  one  type  rings  present  In  the 
molecule. 

Counter  that  specifies  whether  on* 

01  c  0 1  h  ligands  In  th#  els  position 
are  carhnn  a  t  <7  rs  s  with  *  connectivity 
r,f  tour  and  bonded  to  only  on*  heavy 
c  t  om . 

Group  number  of  chsln  *  1 0  m  being 
prec**»»d. 


'in  «)  /(  sssj)  cvrohh  0  INK  «i'FNf  <•><;» 

nf  ICON  I  IMir  Hfl  III  I  so  1 

Svi.nufi  I  INK.  set  Nf  1  so  I 


vllSCO»/(*  I  Cl  '.CON  W  INK  «#U 


/CueiN'/is  1  C.h»in«  1*  lull  *C 


1  i  *»»  i'S  « .  01-3* 


111? 


. .  . 


fO*T*«M*  HAT* 

Svnm  Svn»OU 


DFSCR IPTION 


SlOJli’i 
block  lIT 


5utt*  u“yri  YAK  6l(S 


KC 

Group  number  of  cor# 

ring  atom  K 1 , 

KC 

Group  number  of  atom 

are  being  compared. 

«C 

Group  number. 

■  ton  bonded  to  /ctwo  /i »  i  erwo  m  inte  kc 

whose  ligands  /eou*l*/«»  *  eouai*  i  *nte  kc 

/find  /<  •  >  FIND  1  INTE  KC 


KC 


KC 

KC 


Group  number  of  »ton  whose  ligands  /fi*st*/t*  >  first*  :  inte  kc 
art  be  I ng  compared. 

Group  number  of  ligand  bonded  to  /gaucne/i*  »  gauche  w  inte  kc 

saturated  central  eton. 

Loop  counter  end  subscript.  /hekgow/i*  >  nekgon  u  inte  kc 


KC 


KC 


KC 

KC 


Group  number  of  atom  whose  ligand  Is  /UNEae/i* 
to  be  tested  for  linearity  end 
rotatlonai  symmetry. 

Test  branch  atom  In  chain  l.X  ahlch  /newcol/<» 
may  serve  as  the  junction  for  the 
near  chain. 

Group  number  of  chain  atom  being  /nfukc  /( • 

processed. 

Group  nunber  cf  ring  component.  /KESETW/l* 


1  LINE**  I  INTE  KC 

>  NEUCOI  n  INTE  KC 

>  NIUKC  «  INTE  KC 

I  RESET*  M  INTE  KC 


kc  Group  number  of  core  atom  under  /Sacie  /<  •  >  S aike  i  inte  kc 

which  the  data  are  stored  In  each  of 
the  symmetry  identification  arrays. 

nC  Group  number  of  chain  atom  currently  /SCancm/i»  >  scanch  i  inte  kc 

being  processed  by  SCANCH. 

kc  Identification  number  of  core  atom 

•hose  data  are  to  be  .tored  In  j=2 
of  core  atom  j=JC. 

KC  Group  number.  Also  designates  cere 

atom  of  group. 

*C  Group  number  of  ring  component.  /SvnRNG/<«  1  synang  m  inti  kc 


/SHIFT  /(«  >  SHIFT  I  (MI|  KC 


/-TANO  /I*  I  STAND  U  INTE  KC 


KC 

KCANf 

KC»(F 

k  cave 


Group  number  of  atom  under  /Sykitry/t  • 

Inspection. 

Group  number  of  central  atom  devoid  /Gauche  n ® 
of  uns»tureted  bonds. 

Group  number  of  atom  processed 
Immediately  prior  to  (torn  KC. 

Group  number  of  chain  atom  /Symtky/ii 

previously  process#  '.  If  none,  It 
Is  set  to  >000. 


I  SvmTMY  U  I  NT s  KC 

I  GAUCHE  U  INTI  KCANI 

/SCANCH /(  •  I  SCANCH  ]  INU  rceie 

»  SvmlAY  w  INTI  KCSEK 


u  aak  n  a  oi-Ji 


M)  I 


l‘‘a*all>,''il^  liiltawritMiKlBii . .  v 


F0R1NAN  NRl* 

symbol  symbol 


DESCRIPTION 


_ MOH.f.f 

BLUC* UK 


.  _A.uag,aumL...»i»ai 

5uba  ulm  vaS 


ACC 


«CCH 


<  l,J> 


A  CF  NC 


ACCAUS  <  |  ,  J  > 


ACir, 


A  Cl 


Total  number  of  core  atom*  Ifl 
molecular  structure. 


Contains  t  h  e  group  numbers  1  of  each 
pair  j  of  ring  atoms,  one  fro*  each 
ring,  nhfch  have  been  tested. 

Croup  number  of  central  atom 
containing  an  unsstu-ated  bond. 

Contain*  th*  group  number*  I  of  the 
central  atoms  associated  »!th  th* 
second-or  iler  Interaction  j. 


Number  of  els  Interactions  <  1  or  2 

}  exhibited  by  a  particular  pair  of 
test  core  atoms. 

Counter  that  specifies  whether  the 
atom  one  removed  from  the  first 
Central  test  core  *ts»»  Is  a  carbon 
atom. 


/BI.X2  /<  32)9  )  ASVNC 

1 

INTE 

ACC 

CHAIN* 

1 

INTE 

ACC 

CORCIG 

1 

INTE 

ACC 

CtWQ 

1 

INTE 

ACC 

equal 

1 

INTE 

ICC 

EQUAL* 

§ 

INTE 

ICC 

HEiGON 

1 

INTE 

ICC 

INTROT 

1 

INTE 

ICC 

PR  1  NT  1 

1 

INTE 

ICC 

SCAN 

M 

INTE 

ACC 

SETUP 

1 

INTE 

ACC 

SORNGI 

1 

INTE 

ACC 

STANQ 

* 

INTE 

ACC 

S YflflNG 

1 

INTE 

ACC 

SYJ1TRY 

1 

9NTE 

ACC 

TGAP 

a 

INTE 

ACC 

/Bl.m  /<  1  1  25  )  OFLf TE 

i 

INTE 

•  CCA  ( f , JO  ) 

EQUAL* 

0 

INTE 

ACC*  8t,30> 

/gauche /< •  >  gauche 

y 

INTE 

ACFNE 

✓  fti  X J  /I  ffSI  )  Ci SC OR 

0 

INTE 

acc.aus*  j,  i*p  i 

CORCIG 

* 

INTE 

ACGAUS)  3,  ISO) 

CHINOS 

0 

INTE 

Acr,»us<  J,  iso> 

CTUO 

0 

INTE 

ACGAUS)  3,1*0) 

D! TFAF 

n 

INTE 

ACGAUSC  3.1*0) 

GAUCHE 

0 

INTE 

ACGAUSt  3,  1*0) 

ME  UGON 

0 

INTE 

ACGAUS)  3,  1*0) 

3 1«  i  no  t 

n 

i  rm 

kcgaum  3,  iso) 

MINGS 

0 

INTE 

ACGAUSI  1,  (*0) 

/ C  J  S CUR / ( *  i  C I SCUR 

M 

INTI 

ACIS 

/C  •  SCOR/f  *  f  c  i  .OR 

y 

INIE 

ACL 

ACNE  * T 

Ci  r  ft  u  p 

n  u  m  0  *  r 

of 

atom  adjacent  to 

/tltftOT/t* 

»  t  1  TROT 

M 

INK 

ACNE  XT 

atom  K  C ! . 

ACNE  *F 

G  r  o  u  p 

number 

of 

atom  In  ligand  to  be 

n  !M  *R/(  • 

V  i  !  Nf A A 

1 

1  Mil 

ACNflT 

tested 

which 

I  s 

bonded  to  atom  KC . 

A  CNF  Ml 

Ci  r  o  u  p 

number 

0  4 

branch  atom 

/  M  fcNAA/t  * 

»  SON  3  A 

1 

INIf 

A  CNF  XT 

c  u  r  r  *  n 

<  (  y  be 

!  ng 

processed  tty  5CANBR. 

«C  NT  MT 

Group 

number 

of 

atom  to  be  processed 

t  Si:  AMCW.M  * 

)  SCanCM 

I 

INU 

A  C  Nf  1 1 

1  n  n  e  1 1 

a  t »  1  y 

of  t  e 

*  atom  KC. 

ACNE  '2 1 

Group 

number 

o  f 

nest  atom  down  the 

/  Vt*  f  «y  /  c  * 

)  S  V  Fl  J  A  V 

y 

ai;  nut 

chain. 

KCAY 

Group 

number 

0  f 

chain  »  t  o  i.  preceding 

t  f>  w  ’  Nh/<  • 

»  f  Mm ] N* 

u 

‘Nil 

acpv 

atom  SC . 


s  t  aa*  ) j  o. 0i -  ft 
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FORTRAN 

SvntOt 


«at* 

SvntOL 


KCS** 


KCR* 


KCR* 


kcr 


KCSAnt 


KCSUO A 

KCSUDA 

KCSUDA 

*CT 

It  tv 

*C1 

*c» 


DESCRIPTION 


_ jLiflsafit— - 

BLOCK  LOC 


Chain  atom  pracadlng  (ton  KC. 

Group  nuabar  of  chain  atoa  pracadlng 
ato*  KC. 

Group  numbar  of  parant  cora  atoa, 
namely,  cora  atoa  procaaaad 
Immediately  prior  to  KC. 

Countar  that  apaclflaa  ahathar  tha 
atom  ona  removed  fro*  tha  tacond 
cantral  fast  core  ato*  I*  a  carbon 
ate*. 

<{(j)  Group  number  of  Idantlcal  ligand  I 
associated  aith  cora  atoa  j. 


Group  number  of  p s eudo a  * y mme t r I e 
atom. 

Group  number  of  p s eudo a s y mme t r I c 
atoa . 

Group  number  of  p  •  eudo  a  s  y  Dint  t  r  I  c 
atoa. 

Variable  equal  to  the  number  of 
atom  In  common  between  ring  pair 
K  SUB . 

Suhscr I pt . 


/NEUCOL/<t  »  NEWCOL  R  I  DIE  KCR¥ 

/NEURC  /«•  )  NEWKC  R  INTI  KCR* 

/SI AND  /(•  >  STAND  M  INTI  KCRV 

/Cl SCOA/I *  )  CISCOA  H  INTI  KC* 


/BLR  I  /<  207SI  ASvnC  I  INTE  KCSAREI  *, I  00 » 
EKTROV  I  INTE  KCSArtEC  A,  100  * 
LINEAR  I  INTE  KCSAMECA.IOOI 
SAmE  n  INTE  KCSAriEI  A,  1001 
SYflRNG  I  INTE  KCSARIEI  *,  100  ) 
SVRITRV  0  INTE  KCSARIES  *,  1001 


/COACIG/CO  )  C0RCI6  I  INTE  XCSUDA 


/ENTSvm/l  *  1  ENTSVn  |  INTE  KCSUDA 


/EKTAOT/r . 


E»TAOT  0  1NT-*  KCSUDA 


/FUSION/!  •  I  FUSION  M  INTE  Ktl 


/CISCOA/t  ' 


>  CISCOA  W  INTE  MCI 


Variable  used  foi  temporary  storage.  /neuccl/c  •  )  neucol  m  inte  kcv 


KCS 


Group  number  denoting  the  location 
In  the  strays  nhcre  the  data  are  to 
be  stored  In  subroutine  SOME. 

Group  number  of  ring  i>toi. 


/setua  /i •  >  SETUA  *  INTI  KCI 


/SvmANG/1.  )  SrmANG  I  INTI  KCS 


KCIOOI 


KCIDOI 


t  |  )  Grouo  number  'nformatlon  Input  to 

lubrou  I ne  EQUAL. 

II  KC  or  1000. 

1=2  HI. 

(|)  Cot-rein*  the  group  nunbirl  s  )  (set  A) 

of  the  core  atom?*)  whose  ligands 
•re  to  be  compared  itructureal ia 
a  I th  tho*a  of  iat  8  . 


/CIUO  /(•  )  CTuO  U  INTE  KCtOOIISI 


/EQUAL  /<  •  )  IQUAl  I  INTE  KCIDOIIJ) 


kcjooi  (  |  )  Contain*  the  group  number!  s)  (  let  A)  /Sfiue  /<*  >  setup  I  inte  kciooitji 

of  the  cor*  atom!  s  )  oho**  ligand* 
are  to  be  compared  * tr uc tur ew I *• 
with  tho  **  of  *et  B  . 

xcidqi  (I)  Contain*  the  group  numbers  of  the  /svwang/(»  )  sviiang  u  inte  kc*oom  1) 

first  three  ring  component*. 

«c*oo2  Same  as  KCXOOl(l).  /ctho  /<  •  »  cruo  u  inte  /cido* 


KCiiiot  (I)  Contains  the  group  number!*)  Iset  B) 

of  the  core  atom!*)  uihose  ligand* 
are  to  be  compared  structurewl *• 
with  those  of  set  A. 

k c *002  (I)  Contains  the  group  number(s)  !set  B) 

of  the  core  atom(s)  uihose  ilgand* 
are  to  be  compared  structurewl** 
with  those  of  set  A. 

«C*002  (  |  >  Contains  the  group  numbers  of  the 

last  three  ring  component*. 

*CV  Ordinal  number  used  to  Identify  the 

non-ring  ligand  date  of  a  pair  of 
rings  i:j filch  has  been  tested  for 
synoetry.  Also  nunber  of  entrlei  In 
arrays  MKT  and  (ICR. 

*ci  Group  nunber  of  first  carbon  atom 

bonded  to  the  Oxygen  atom. 


kci 

Group  number  of  atom  contained  In 
array  KCXD01  and  whose  ligand*  are 
being  compared. 

KCl 

Group  number  of  central  atom  In 
longest  chain  If  chain  is  odd  or  one 
of  the  two  central  atoms  If  chain  Is 

even. 

ICI 

Group  number  of  atom  contained  In 
array  KCXD01. 

Group  number  under  which  the 
symmetry  d  a  »  cf  th*  ring  are 
stored . 

*  C 1 f  (  1 

i)  Tenporar,  storage  for  original 

KCSGilC  data  computed  for  KCl. 

*C 

Group  number  of  atom  prevlou* 

<  parent  )  to  atom  Kl. 

*.z\t 

Group  number  of  atom  prevlou*  to  th* 
entry  ring  atom  Kl. 

Group  number  of  atom  previous 
(parent)  to  atom  KIR. 

/EQUAL  /(•  )  EQUAL  I  I  NTS  *0002(1) 

/setup  /<•  >  SFTue  i  inte  kodo2<s> 

/SVMANG/J*  1  SVnRNG  U  1 NTE  KOD02<3> 

/BLK3  /(  <>3»T)  EQUAL  IS  INTF  *CV 

EQUAL*  IS  INTE  *C» 

syistbv  o  inte  kcy 

/OITCnE/!*  )  DITERE  «  INTE  «LI 

/EQUAL  /•  •  >  EQUAL  U  INTE  KCl 

/,  TIHOT/Io  )  E  *  I H  0  T  U  INTE  KCl 

/SETUP  /(  •  I  SETUE  U  INTE  *CI 

/CVf'HMG/t  •  )  SvnANG  u  INTE  *CI 

/  r  i  «  I  /(  JSAll  EITMIJT  IS  INTE  KCIAUIAI 

/EQUAL  /(  •  )  EQUAl  U  inte  «cie 

/IBUOiA/l*  )  EQUAlA  I  INTE  KCIP 

/IQUAlH/li.  1  EQUAlA  W  INTI  *Cie» 


i  f  a/ h  M  a, oi-)* 


Hill 


FORTRAN 

«»TN 

DESCRIPTION 

SIOMGl 

SUMOUMNt 

US*6Elj  , 

SVWBOL 

iV*60l 

*ioc(  uJc 

Sub  a 

u  tm. 

VAR  6M 

«r,t 

Group  nuwber  of  second  carbon  ato* 
bonded  to  tha  oxygen  ato*. 

/Dl  TEAE/I* 

OITEAE 

N  INK 

RCt 

net 

Group  nu*ber  of  ato*  contained  In 
array  KCXDOZ  and  ahe«a  ligand*  ara 
baing  compared. 

/EQUAL  /(<* 

EQUAL 

M  INK 

net 

«ct 

Group  nuabar  of  ato*  adjacant  to 
ato*  KCi. 

/EXTAOT/I • 

EXTAOT 

M  INK 

r* 

(Cl 

Group  nu*b*r  of  ato*  contalnad  In 
array  KCXD02. 

/SETUP  /<• 

SETUP 

U  INtE 

KCI 

KC2AL1T 

<  1  ) 

Tamporary  atoraga  for  original 

KCSAME  data  conputad  for  KC2. 

/IftUU  /<  3B9* 

E  I  TROT 

n  INTE 

KC2ALTC  A  ) 

icir 

Group  nuabar  of  atnn  previous 
(parant)  to  ato*  K2. 

/EQUAL  /<• 

equal 

M  INTE 

KC2P 

(C2* 

Group  nunbar  of  ato*  pravloua  to  tha 
entry  ring  »  to*  K2 . 

/EQUALQ/<  * 

equal* 

I  INTE 

KC?P 

(C2NR 

Group  number  of  ato*  pravloua 
(parent)  to  ato*  K 2 S , 

/FQUALA/( • 

EQUAL* 

U  INTE 

KC2PA 

(Cl 

Counter  used  In  tha  search  of  3-ene 
structures . 

/Cl  SCOP /( • 

CISCO* 

U  INTE 

KCI 

(Cl 

Group  number  of  ato*  adjacent  to 
ato*  KCI. 

/f ITAOT/I • 

EXTAOT 

U  INTE 

MCI 

XO 

Assigned  change  In  roui  coordinate  of 
symbo  1  1  nput  army  . 

/ASSIGN/I  * 

ASSIGN 

0  INTE 

KO 

(0 

Change  In  roi*  coordinate. 

/BOND  /<  • 

BONO 

1  INTE 

KD 

(0 

Upper  limit  of  loop  counter. 

/DFlETE/(  • 

DELETE 

W  INTE 

KO 

ID 

Change  In  roa  coordinate  for  lnde*ed 
ato*  number  l  ligand 

/F  I  NO  /«  • 

FIND 

1  INTE 

KO 

(0 

Change  In  rog  coordinate 

/  I  DE  «T  /<  • 

JOINT 

w  INTE 

KO 

(0 

Change  In  roi  coordinate  of  array 
GRID. 

/Nu*&F«/f  • 

NUnBf  A 

1  INTE 

KO 

<1# 

Change  In  roi  coordinate  for 
tr ins  forest  1  on  to  NX. 

/SC  AN  f{* 

SCAN 

1  INTE 

KO 

(00 

Change  In  roe  coordinate  of  ligand 

/Nunfti«/(  •  > 

NO NBC  A 

0  INTI 

KOO 

one  . 

(02 

KO  value  of  second  character. 

/I  Of  NT  /(  •  } 

101  NT 

W  INTI 

KOI 

(INI 


Denotes  tehlch  of  the  t*o  central 
■  t  o » »  has  •  n  unnturitti)  bond. 


f  MuCuf  /i  • 


i  o»ucm(  u  inti  mini 


FORTRAN  hath 

5VW00L  $VH$OL 


DESCRIPTION 


STORftGE  SUBROUTINE  ‘)S«3E 

BU)| «  i  DC  ftijM  ulvPE  v»»  oM 


KCOUAL 


Counter  that  specific)  the  number  of  /SEfue  /( < 
different  atoms  erhleh  arc  contained 


)  SEtui*  w  INTE  *EOU»L 


In  equal  amount  s  by 

t»o  1  1  g end  t . 

KT 

Upper 

limit 

of 

loop 

counter. 

/CIS  /<* 

>  CIS 

M  iNTC 

M 

KF 

Upper 

limit 

of 

loop 

counter . 

/CORCIQ/C  * 

1  CORCIG 

y  INTC 

KF 

Xf 

Upper 

limit 

of 

1  crop 

counter  that 

/EOUAL  /(• 

1  EQUAL 

!  INTE 

KF 

controls  the  selection  of  the  test 
ligand  from  set  B. 


KF 

Sub  s  c  r 

Ipt  corresponding  to  highest 

/ECUALR/<  * 

)  EQUAL A 

y 

INTE 

KF 

value 

of  data  in  JDXRD. 

KF 

Upper 

limit 

0  f 

loop  counter . 

/F I R5TR /( • 

>  FIASTA 

y 

inte 

KF 

KF 

Upper 

limit 

of 

loop  c  ounter . 

/FUSION/1  * 

)  FUSION 

y 

INTE 

KF 

KF 

1 1  p  p  »  r 

limit 

n  f 

loop  counter. 

/I.  INEAR/I  • 

)  LINEAR 

y 

INTE 

KF 

XF 

Upper 

limit 

of 

counter . 

/RING  /(  * 

)  RING 

y 

INTE 

KF 

KF 

Upper 

limit 

of 

loop  counter. 

/sr.rt  /( w 

>  SAhE 

y 

INTE 

KF 

KF 

Upper 

limit 

of 

1  ocp  counter  that 

/SETUP  /<* 

i  SETUP 

i 

INTE 

KF 

c  o  n  t  r  o 

Is  the 

s  e 

lection  of  the  test 

1  1  g  a  n  d 

from 

set 

B. 

KF 

Upper 

limit 

o  f 

loop  counter 

/SOHMi  1  /<  * 

)  50MNGI 

y 

INTE 

KF 

SF 

Descr  Ipt  Ion 

not 

Input 

/'jVnRNG/t  * 

)  SvnftNG 

y 

inte 

KF 

ke  r.miS 


sf  I  *6 


*  r,  n  » t 


(|)  Frequency  or  nijnber  of  corrections 

of  the  second-order  Interaction  I. 

In  CHINOS,  It  contains  subscript  of 
data  array  associated  ulth  ring 
correction. 

Croup  mmbtr  of  first  atom  processed 
in  composition  cycle. 

f  |  i ij  that  denotes  uihether  data  In 
arrays  NtOffU.,  KCSflnf,  .nd  NOSftME 
were  (I)  or  ultra  riot  (0)  transferred 
to  the  temporary  storage  errayj. 
flag  that  designates  the  iselght 
correction  for  ring  atoms. 

(|(j>  C  c  ri  t  e  (  n  s  iINbi  C  -  C  gauche 

correetl - n  i . 


.mm  /i  <0011  ciscor  o  inis  sega.jsi  i so  i 
cohcig  n  i nt s  segrusi  iso> 

CHINOS  0  INTE  SEGAUSIISOT 
III  Hill  0  INIS  SFGAUSI  ISO) 
GAUCHI  IS  INTI  Kt TiAtlS'  I  SO  I 


/SvnTRV/l  ■ 


/I  t  IRHI  /I  . 


/ME  II, UN/I  i 


I  S'*  1ST  RV  W  INTE  ST  I  M  *.  T 


I  (IIROt  W  INT(  STIR* 


i  HE  If) ON  W  INTI  SFIRt 


/uruchi/i*  i  gauche  c  inti  sg«at  iv.bi 


7  as*  n  d.Ol-J* 


tORTMN 

svmsoi 


MkTM 

SVHtOL 


DESCRIPTION 


-iwhn 


*80 

Atom  type  flag. 

TOauCHI/l  » 

>  GauCNt  w 

INTI 

*80 

=1  ont  of  tha  tao  central 

atoms  1*  a  nitrogen  stem. 

=2  the  fas  centre!  etoMi  ere 

cerbon  atoms. 

KGSID 

<  1  ) 

Content*  of  Input  card  containing 

/SLK<!  n  3ft 1 )  TQSP  M 

INTI 

KGR1Q 

i  < 101 > 

structure  or  label  of  molaeuta 
shifted  and  centered  for  printout 
purposes. 

KNISVV 

Group  number  of  carbon  test  core 

/GAUCHE/C  • 

)  GSUCME  M 

INTI 

KKGAVV 

atom  bonded  to  oxygen  atom  forming 
part  of  ether  linkage. 

*1 

Loaer  limit  of  loop  counter. 

/C0*CI6/<  « 

)  COSCifi  M 

INTE 

A 1 

*1 

Lomer  limit  of  loop  counter  that 
controls  the  selection  of  th*  test 
ligand  from  set  B. 

/EQUAL  /<• 

)  EQUAL  W 

INTE 

*1 

*  I 

Subscript  c or r e sp ond 1 ng  to  lonest 
value  of  data  In  IDXRD. 

/EO'IALft/f»  1 

1  FQ0ALR  H 

INTE 

A  I 

*1 

Lomer  limit  of  loop  counter. 

/MEIGON/< •  1 

1  MEXGON  W 

INTE 

A 1 

*1 

Lower  limit  of  loop  counter. 

/MA*CHN/<#  1 

i  naxcHN  u 

INTE 

A! 

*1 

Lomer  limit  of  loop  counter. 

/MULTI  /(*  1 

>  nuivi  u 

INTE 

A 1 

*1 

Location  In  array  Slid  corresponding 
to  location  1  In  OftOSUrt. 

/SEARCH/* •  ) 

search  n 

INTE 

A  1 

«I 

Lomer  Mailt  of  loop  countar  that 
controls  the  selection  of  the  test 

/SETUP  /<*  ) 

SETuA  M 

INTE 

A  1 

1  Igend  from  set  B. 

Cl 

Description  not  Input 

/SYMRNG/**  i 

Svmang  u 

INTE 

A  1 

*  1  NT 

(  1  > 

Contelns  the  group  number  of  etoms 

/ALAI  /(  37»*> 

EJTAOT  0 

INTE 

A  1  NT 

<1001 

■hose  Interna!  rotational  symmetry 

Is  Includeo  In  the  eiternel 
rotational  symmetry  of  the  molecule. 

INIAQT  1 

INTE 

A  1  NT 

<100  1 

i  1  ) 

Contelns  the  location  of  tha  ring 
atom  bonded  to  the  non-ring  atom  1. 

/ALA*  /*  24^1  ) 

strung  m 

INTE 

AJ 

<  100  > 

«J 

(  1  > 

Contelns  l.d.  numbers  of  th*  tmo 

ring*  In  th*  fused  ring  set. 

/  A l.  A  A  /<  A?  A  A  I 

cuing s  n 

INTI 

AJ 

<  A  I 

« i 

Group  number  of  ring  component. 

/CTCOAA/C  > 

CVCOAM  n 

INTE 

A  J 

i  ’  *m  n  t.ti'H 


fan  TRAM  r*ATM 

bVM0Ot  $VW©OL 


DESCRIPTION 


i  ~  . ii  i  irm  !■  ii  n  . ini' . —MM 

_ STOf.flr.f suosout  inc  usage 

BLOCH  LOC~  fjOB  U  I VPE  V»*  o'TW 


KK 

Counter  of  ring  te»t  cycle.  Also 
denote*  location  In  chain  LX  that 
contain*  the  f!r*t  atom  of  the  ring. 

'CHAINR/I  * 

>  CHAIN*  y  INTE 

KK 

KK 

Loop  cauntar  and  subscript. 

/CIS  /<• 

)  CIS 

y  INTE 

KK 

KK 

Temporary  storage  variable. 

/CORC I G/( * 

)  CORCIG  y  INTE 

KK 

RK 

Loop  counter  and  subtcrlpt. 

/CRINGS/C  * 

)  CRINGS  ft  INTE 

XK 

KK 

Test  standard  for  the  locations  of 
the  double  bonds  In  ring  K. 

/CYCORR/I • 

)  CVCORR  y  NTE 

KK 

KK 

Subscript  of  array  KCCR. 

/DELETE /I  ib 

)  DELETE  y  INTE 

KX 

XX 

Loop  counter. 

/EQUAL  /t  • 

)  EQUAL 

y  INTE 

KK 

XX 

Loop  counter  and  subscript. 

/f  US  I0N/<  * 

)  FUSION  U  INTE 

KK 

KK 

Loon  counter  and  subscript. 

/HE XGON/I • 

)  MEXGON 

■J  INTE 

KK 

XX 

Subscr 1 pt . 

/LFSSEN/I  • 

)  LESSEN  y  INTE 

KK 

XX 

Loop  counter  and  subscript. 

/NfUNGS/l  * 

)  NRINGS  U  INTE 

KK 

XX 

Location  j  In  N0C(  1  ,  j  )  inhere  first 
atom  of  rln^  Is  located.  Also  used 
as  a  deletion  flag  If  Identical 
chain  formations  have  been  defined. 

/RING  /<* 

)  RING 

K  INTE 

KK 

KK 

Transfer  flag. 

/SvnRNG/(  • 

>  SYKRNG  W  INTE 

KK 

XL 

Number  of  heavy  atoms  bonded  to  the 
flcjt  central  test  cere  atom  K  !  that 
are  capable  of  dh  i  biting  a  gauche 
Interaction. 

/GAUCHE /C  • 

)  GAUCHE  y  INTE 

HI 

XtK 

Counter  that  specifies  whether  tiro 
ligands  els  to  each  other  are  both 
hydrogen  atoms. 

/C 1 SCOR/I  • 

)  CISCOA  U  INTE 

KIN 

KK 

loop  counter  and  subscript. 

/DEL  t At n  • 

>  OEITAI  W  INTI 

K« 

XN 

Loop  counter  *  n  o  subscript. 

/ DEL  T  A 2  / (  • 

5  0EITA2  W  IN1E 

K  K 

KK 

Group  number  of  atom  bonded  to  ring 
atom  KC . 

/SYRIANS ti  * 

)  SYMRNO  y  INTI 

XK 

i  t  «m  r  j  a.  oi-j» 


I/O 


&6mmstaBm 


WIW" 


wy'l-t-wl 

rcamas  hath 
svnsoi  ivnsbi. 


a  n*  a 


XNBENI 


<  I  ) 


KMHAT 


<  t,  j> 


IW 


«*T 


(  l,J> 


*«ita 


<  l,j) 


*0«B 


<  I,  l> 


K 


(  >,  i,*  > 


«cm 


(  I  ) 


DESCRIPTION 


-id tin*- 


xOHftfti 


if  AfA  rj  i  t>-H 


Nuiabar  of  cort  a  t  oa  foniittuanti  of 
long*  it  chain. 


Co. taint  ring  nuebtrt  of  pyrlrflna- 
typa  ring  ttructuraa. 


Cor,  tilnt  alfcana  c  -  n  eorrcctlrna. 


N unbar  of  characfart  In  multi -BOrd 
I  nput  tymbo ! . 


Contalnt  tha  locafljnt  I  In  array 
IDS  thirr  tha  group  numbar?  of  fha 
fast  llgtndt  aitoeiated  ■ 1 1 h  tha 
branch  oalr  j  art  found. 

Contalnt  tha  locations  I  in  array 
IDXR  thtrt  tha  qroup  number!  of  *ha 
test  ligands  at.’ oclatad  alth  the 
ring  pair  j  ,ra  found. 

Contains  tha  ring  nuabir  (I)  of  tha 
ring  romponent  In  fusad  ring  tat 

<  j  $. 


Plu  1  I  -  stor  age  arr  ay 
J-l » 2 

ring  njmber$  of  fused  rlf.g 
pair  I  5  n  fused  ring  set 

K  a 

j~3  number  of  stonn  kiblcb  r I ng 
pair  has  In  common, 
group  numoers  of  t  h  >?  s  * 

atoms. 


/HAECHN/1  ♦  T 

naxcMN 

H 

INTE 

KMATK 

/  sun 

/(  3sr*» 

cvcom 

U 

JTrlE 

HNBENXC  NO  f 

HE  ICON 

: 

INTE 

KNBEN2I  NOT 

/GAUCHE/I*  T 

GAUCHE 

c 

INT£ 

KNMAT 

«  N,£  ) 

/MULTI 

/(  *  } 

MULTI 

i 

INTE 

KNO 

/BLTCI 

n  1*29 T 

EJUAL 

n 

INTE 

KNT 

*  2,99  T 

equal* 

0 

INTI 

ANT 

! 2,99  I 

/MIX  1 

/(  10*9 T 

EQUAL* 

n 

INTE 

:»>•  * 

( 2,30  T 

/ 0L K  3 

/(  99*2  T 

CMP  . 

NTE 

Kor 

,,  JOT 

'  '  :c  S  i  as 

0  NTE 

KO 

J,  S  J  T 

F  dMON 

« 

INTE 

KP 

0,  10* 

HEXGON 

i 

T  NTE 

. NO, 10  » 

NHfNGS 

i 

INTE 

> 

( NO, 10  T 

/BlK  1 

/<  2*  > 

FUSION 

1  NT  L: 

KOn^ONT  NO, 10 ! 

J  >  3 


Number  of  ligands  bunded  to  rue 
atom  I . 


/OHM  /(  9NO!  >  us  1  INTE  KON 
ciscc*  i  iwye  kon 
rv  :n  :  raff  now 

fOUAL  t  I  NT  C  *  ON 
FPUAIA  I  INTE  K ON 
EJTROf  I  '  NT(  KON 
GAUCHE  I  I  N »  £  KON 
I  NT  HOT  I  iN?i  BON 
l  5  NF  A  A  i  INTI  KON 
MINM  |  INTI  WON 
SCANS*  1  I N I  £  KON 
SCANCH  I  INTI  RON 
SORNM  i  INST  :  F^N 

stand  c  inti  *  on 


t  TOO  T 
MOOT 
I  TOOT 

s  1001 

MOOT 
(  TOO) 

i  '  no  t 
•  »  00  T 
U  00  T 
(TOOT 
(TOOT 
(  100  T 
MOOT 
J  TOOT 


Connectivity  of  atom  K  C I  p I  us  nne 
Upper  limit  nf  loop  counter*. 


/I  I THO (/(  • 


»  FJTAOf  W  INTI  RONE 


CVCOAA/l • 


)  CYCOAA  W  INTI  K"  iWAI 


)  n 


FORTRAN 

nxtH 

DESCRIPTION 

STORAGE 

_ S-JBBQUIlfce 

USAOt 

S^nBCi. 

5vn»i*l 

BiOCa  i.OC 

5UUH  U 

TYPE 

vaR  oDf 

KONT 

Upper  limit  of  lecf  counter. 

/EQUAL  /I*  > 

equal  w 

INIE 

KONT 

CONT 

Upper  limit  of  loop  counter. 

/EQUAL A /(  *  ) 

equala  u 

1  NT  E 

KOMT 

hop 

Number  of  asymmetric  atoms  present 

In  a  particular  chair.. 

/MA v**HN/ T  *  1 

P*AXCHN  m- 

INTE 

K  OP 

KOPNAI 

Greatest  number  of  asymmetric  atoms 
present  In  a  particular  chain. 

/n  AXCMN/f*  ) 

fTAXCHN  W 

1  NT  £ 

AOPflAV 

*  OC1  o 

<  1  ) 

Contains  the  order  that  the 
subscripts  of  the  date  In  KREPI  mould 
has*  If  said  date  t* e r a  arranged  In 
Increasing  numerical  order. 

/SLA 3  /I  3553  ) 

lessen  n 

INTE 

XORO  <N0> 

KOI* 

Group  number  of  oxygen  test  core 
atom . 

/GAUCME/f  *  > 

GAUCHE  W 

INTE 

KUXY 

M» 

Addition  or  subtraction  operation 
f  .  ag 

/l  DENT  /<*  ) 

1  OH.  *  •« 

INTE 

AP 

K  P 

Integer  equal  to  tl, 

/5UHAYH/C*  ) 

SUflA  T *  I 

S  NY  6 

AP 

KPCRN 

Group  r.  jmber  of  non-ring  '  Igmi 
bonded  to  ring  atom  KC. 

/SyarnG/i •  ) 

SVhflNG  W 

1  NT  £ 

KPEA* 

APERT 

<  1  > 

Contains  the  group  numbers  of  the 
ring  components. 

/BLAH  /( 

SYflRNG  « 

INTE 

KPERT  U) 

SPRINT 

Equal  to  digit  J  of  lPRI»,r  <0JK>. 

mga*  /<  *  ) 

TGfcP  W 

INTE 

'FRINT 

KM 

Number  of  heavy  atoms  bonded  to  the 
second  cftnl  test  core  atom  K  2 
a  r  a  b  1  i  of  »  s  h  1  b  1  1 1  .i  g  a 

he  Interaction. 

/GMUCMF./I  ♦  > 

GAUCHE  W 

INTE 

KA 

KM 

-aoscrlpt  of  a  r  r  a  y  K  fi  t  ' 

/LESS  EN/<#  > 

LESSEN  W 

INTE 

KM 

nA/NO*  (  |  ) 


«n rvur  ;  |  > 


T  h  I  *  array  applies  only  to  ring* 
containing  one  nitrogen  atom  In  the 
ring  structure.  locations  I  =K  1  iso 
lrK^  contains  the  group  number  i  of 
the  nitrogen  atom  uhlch  Is  adjacent 
to  the  carbon  atoms  X  |  and  K  2  . 
location  l=K3,  where  K3  I*  tn#  group 
numb*r  of  the  ring  atom  para  to  th« 
nitrogen  atom,  contain*  -j. 
r'entsin*  flags  that  govern  the  type 
of  Identifying  m«lght  correction  tn 
be  applied  to  ring  atom  I, 


/  l«l  /(  3MSI  CO»riG  O  I  NT  E  KACUORIIOv) 

cvroRR  o  ink  n m r r; o r> «  ioo> 

ME  S'  ON  1  .  NIE  KHGNOm  »  O' 


/BUI  /l  )»)>>  CORCIG  0  l  NT  f  SRCNUT1IO01 
f.VCflhR  0  INTI  *»CNUt(10vl 
HE  ICON  I  INTI:  SfiCNUIl  TOO) 


i  n 


1 1  *ce  f _>  o  oi-i* 


- - — , — - M  ll  . .  ,  „l,„lwll)lwl<!fl 


FOfttR*N  MUH 

Svn»OL  lYJiiOf. 


DESCRIPTION 


-JMliilL- 
TTocT  id* 


*«« 

(  1  > 

Coni.  •  1  n  S 

the  ring  number  of  tha 

mai 

/<  >301) 

* 

imte 

HAIR  (40) 

rings  that  art  not  mutually 

«  k  c 1 u  s 1 t* 

and  h?rica  art  to  bo 

dl  scardad 

. 

kmnbi 

FI  1  no  comper  Ison  flag. 

/ k  OURL 

a  •  > 

tQuei 

J 

INYt 

KMINQI 

-0 

the  two  ring-containing 

ligands  aro  not  equ£i. 

=  1 

thay  are  ague  1  . 

ANi.'tei 

Ring  comparison  flag. 

/fau»La/(«  » 

EOuata 

0 

INTE 

*»INQ1 

=0 

the  tmo  r 1 ng  -  e ont a  1 r 1 ng 

1  1  gands  era  not  egual . 

=  1 

thay  are  equal . 

KRIWB* 

Frtl Ulflir*  ring  roaparlson  lasts 

/fcQt?ALA/<  •  > 

ceumui 

1 

I  RTF. 

BRING* 

f  1  ag 

=  0 

initial  co»p*r 1  son  lasts 
of  tuo  rings  negative. 

=  1 

Initial  comparison  tests 
of  tmo  rings  positive. 

(RING! 

Prtllminary  ring  comparison  lasts 

/FIHSTR/<«  ) 

FIRSTS 

0 

>NTE 

BRING* 

flag. 

-0 

Initial  comparison  tests 
of  too  rings  negative. 

=  1 

Initial  comparison  tests 
of  t»o  rings  positive. 

kRUS 

(  1  ) 

Contains  1 

I.d.  number  of  non-core 

/Hi  E4 

/(  ZT41> 

S»nnv& 

n 

INIE 

ps  .iur,  <  4  > 

ligand  of 

ring  location  1. 

RRO- 

(  i  > 

Indicates 

aihether  ligand  1  he*,  (2) 

/  0  L  K  4 

/<  *2b2> 

SY1HN6 

« 

1NTE 

(4) 

or  does  not  have  (11  tan ft  Id 

rrtatlana! 

ring. 

symmetry  about  plant  of 

KRRROR 

<  1  ,  J  > 

Itultl  -variable  arrav 

/Bl.KR 

/<  3122> 

CS  |  FT,  S 

1 

INTE 

BA*H0P<  4,40  ) 

1  =  1 

number  of  <-:  «  y  g  e  n  atone  In 

CVCGRR 

F IRSIR 

n 

I 

INTE 

INTE 

BRRROPI  6, 40  > 
KRPHOPI 4,40  ) 

ring  k  . 

WRINGS 

i 

INTt 

BAPAOPI 4,40  ) 

1=2 

ring  location  of  first 
oiygen  atom. 

1=3 

number  of  nitrogen  atoms 

In  ring  k . 

1  -H 

ring  location  cf  first 
nitrogen  atom. 

1=5 

number  of  double  bonds  In 
ring  k  . 

1=6 

ring  location  of  first 
double  bond . 

11 

Transfar  v 

ar 1 ab  1  a . 

/Cl  SCO* 

M  *  T 

C! SCOR 

y 

1  i.  I  f 

Ki 

<1 

Group  nu«u*r  of  ring  ligand,  also  a 

SfOllALft/f*  1 

lOURl* 

y 

INTE 

subscript. 

«> 

Entry  valua  of  IGS. 

/!«»»' 

- 

» 

INTE 

*1 

1  /,) 


if  sfr  11  i  ji-h 


FOMA**  NATH 

SVR90L  SVXBOl 


DESCRIPTION 


_5  !.««*££- 


C  DC 


.  ....MMgPuiiHE  us;oi  , 
SUBH  U  IVFfc  V«S oTm 


KS 

Ro*  coordinate  of  car#  atom  JC. 

/SHIFT  /<•  J 

i  SHIFT  W 

I NTE 

IS 

KS 

Identifier  stored  In  array  KARO  or 
variable  counter. 

/SYNANG/f*  ) 

SVWAWG  W 

IKTE 

KS 

KiArE 

<  i ,  j ,  k  > 

The  array  location  corr* spond  1  ng  to 

/  A  L  K  3  /<  561*1) 

EQUAL  1 

t  HIS 

KSAME 

IS,  J 

ligand  1  of  type  j  in  set  k  Is  set 
equal  to  one  if  ligand  )  Is  equal  to 
another  1 ! g  and . 

SETUP  0 

I  NTE 

KSANE 

<  A,  J 

K5ANC 

Denotes  the  number  of  chains  of 
maximum  length  In  the  molecule. 

/NAXCMN/<#  ) 

HAXCHN  W 

1  NTE 

xsamt 

XSET 

( i  ) 

Contains  the  number  of  Identical 
ring  II gands  In  set  1  , 

/BL  A  3  /<  6  372) 

SvnaswG  n 

I  NTE 

KSET 

i  1 5 

MI 

<  i  ) 

Contains  the  ring  numbers  of  the 

/BLF. 3  /(  5  7  01  > 

CYCOAA  0 

IN7C 

KSU 

!  \<3  » 

slx-membered  rings  nlth  two  or  more 
double  bonds  In  their  structure. 

XEXGON  1 

INTE 

XSIX 

<  Nl*  Ji 

*  S  T  ORE 

(  i  > 

Contains  Identification  number  of 

/BUI  3  /<  3H03) 

LFSSEN  N 

I  NTE 

KSTOfTEC  *)0  ) 

rings  which  have  some  but  not  ell  of 
tnelr  atoms  In  common  with  th<i 
reference  ring. 

XSUS 

Number  of  ring  pairs. 

/Fl/SI0N/<  *  > 

rusiom  w 

INTi 

xiiia 

XSUB 

Total  number  of  ligands  of  r. 
particular  atom  processed  to  this 
point. 

/ SCfiNBR /<  *  ) 

SCANBR  U 

!  NTE 

xsot 

X5U* 

Storage  location  In  array  .'.IGftND  for 
the  composition  data  of  a  particular 

1 1 g  and . 

/SVNTAV/!*  ) 

SVWTHY  X 

INTI 

K  SUB 

XStim 

Transfer  variable. 

/CISCOft/<«  ) 

CISCO*  W 

1  NT  f 

K  S  l)N 

ksum 

total  number  of  second  order 
Interactions  and  ring  correction*. 

/ C  GRC 1 G / * •  > 

CGACIG  U 

INTE 

KSUR 

KSUM 

Sum  total  of  various  ring 
properties. 

/(.A  INGS/I  •  > 

C MINGS  y 

INTI 

K  VUN 

*SU* 

Denotes  presence  of  alien#  structure 
•than  equal  ta  2 . 

/OH  TAI  /«  •  > 

OE'-IBI  U 

INTE 

K  SUN 

KSYN 

f  i  ) 

Contain  Internal  rotational  symmetry 
of  1  I  gand  1 . 

/  0 1  K  l  / «  J  3  6  l  > 

EITHUr  H 

INTE 

asvu 

(  t  t 

*Cv* 

Cinotes  uhether  ligand  Is  t  1  )  or  It 
not  (0)  linear. 

/CIWC  /<*  ) 

(.  1  WO  I 

INIf 

x  svm 

ksy* 

Dino  in  the  rotational  symmetry  of 
the  ligand. 

n  m.  m  */f  #  > 

HI  UAL*  1 

)N“I 

asyn 

Oenutes  the  rotational  symmetry  of 
the  ligand. 

/U  Nf  *.)  /  (  «  ) 

l  J  M  A  ft  0 

t  NT  f 

xivm 

1 1  »»«  li 


1  1  A 


fgataan 

nafa 

DESCRIPTION 

sto**r,i 

5OBA0UT  I  ME 

Ujaor 

uvreoi 

5VNSOL 

TO  iTT 

Jill"  ! 

va*  blit 

(SVM 

Description  not  Input 

/Svn**G/<»  » 

srmaNB  t 

INIf 

«  StN 

r? 

Group  number  of  carbon  atom  adjacent 
to  nitrogen  *tem  In  ring  K. 

/CVCOAA/I  •  > 

CVCOAA  tf 

1  NTS 

AT 

*T 

Identification  number'  of  group  ■hose 
first-order  contributions  to  th» 
group  weight  are  to  be  calculated. 

/o£i.r*i/i»  i 

OELTai  1 

IKTl 

AT 

AT 

Identification  number  of  group  ahose 
second-order  multiple-bond  aaight 
contributions  are  to  be  calculated. 

/0€l T  At /< •  ) 

OELTat  1 

INTI 

AT 

AT 

Sub jcr 1 pt . 

/MEXGON/I*  ) 

HE  ISON  M 

INTI 

AT 

KT 

Group  number.  Also  used  to  refer  to 
core  atom  of  group. 

/SCAN  n  *  5 

SCAN  I 

INTI 

AT 

ktocki 

<  1  ) 

Ring  numbers  of  beniene-  and 
pyrldlne-typ*  rings. 

ratal  /i  I3.s> 

CTWO  I 

MEXGGN  n 

1  NTf 

iwte 

ATBENZINO) 
A  *  B  E  N  7 1  '<0  ) 

am 

Counter  that  specifies  ahether 
llgenri  bonded  to  first  central  core 

K1  Is  i  tertiary  carbon  atom. 

/ciscqa/i*  > 

ci scon  M 

lair 

AYBI. 

amt 

Flag  set  equal  to  I  ahen  KTBL  Is 
Incremented.  Serves  to  Indicate 
ahen  tertiary  carbon  groups  are  cl* 
to  each  other . 

/C-ISCOA/I*  i 

CISCO*  u 

l«TE 

atstL 

KTftH 

Counter  that  specifies  ahether 
llgend  bended  to  second  centrel  core 
atom  K  2  Is  a  tertiary  carbon  atom.. 

/CISCON/C*  > 

CISCO* 

INFf 

r.  isa 

A  TEA* 

(  1  ) 

Usad  to  distinguish  between  els  and 
trans  ring  configurations. 

/SI  a  3  /•  S S  S 3  ) 

CVC0«A  * 

INYE 

ATE  r.F  1  *  ) 

attsi 

Ring  pair  deletion  fJag. 

1  ON/I  •  ) 

FJSION  U 

INTI 

ATI  ST 

-0  ring  pslr  ■*>  not  detected 
by  test  cycle. 


>0  ring  palr(s)  d«t»tt*d  by 
test  cycle. 

aMta*  Count*'-  that  specifies  rhether  trso  .•CIH'on/<*  >  CISCO*  u  i  Hi  l  *m«* 

groups  cis  to  each  other  are  both 
tertiary  butyl  groups,  that  la, 
carbon  atoms  bonded  to  four  b  *  a  a  y 

a  ton*  . 


« tOUIJt 


(  I  ) 


Denotes  the 
Inti’-aetlr.n 


type 
I  . 


o  V  th*  s  *  ?  end  -  or  der  /seal 


«*  I  f  \  >  C  s  SC  OR 

0 

I  Nil 

K  Tf.At.»SC  If  0  » 

C  0  ft  L'  10 

n 

1  NT  C 

A  1GAUM  ISO  1 

CH  f MGS 

(a 

INTt 

a rnAust iso i 

CTWO 

0 

!N»t: 

A  1  C» AiJSf  1  f  ©  1 

0* If  At 

0 

INIf 

*  IGAUS* Fill 

Gftl'CMt 

0 

INIf 

*  TGAijSi  ISO  I 

Hf IGON 

u 

INTI 

a  rc.Au  Si  if  ©  i 

I NTAOr 

0 

I  N  ?  I 

AffiAUSl  If  G  > 

NA INOS 

Q 

I  Nil 

X  TC AuSl  F  9 0  1 

FORTRAN  HATH 

SYMBOL  SYMBOL 


DESCRIPTION 


tii  ac* 


,  TORAKE 


T5T~  5ueT — u  TvT'f 


USAGE 

t.Trm 


KTOT 


<  I  ) 


Number  of  stow*  of  type  I  In  ligand. 


/Slit)  n  i,Ut  )  SCANS*  n  I  NT  £  «tot  <«» 
SCANCH  J  INTf  * !OT  <  »  > 
SVnTNV  IN  INTI  MOT  t  »  l 


ATT 

Nuwber 

KCCR. 

of 

atom 

pair 

entr 1  a  t 

In 

array 

ATT 

Number 

of 

atom 

pair 

entries 

In 

array 

/0EL£TC/t»  t  ntlFTE  »  INTf  ITT 

/EOUALA/le  »  EOUSin  W  INTE  HIT 

/OELTA2/I  »  I  REI.TA2  V.  INTE  «;v 


KCCR . 

Location  of  d  *  t  *  In  group  j  T 
assoc  fated  ■ 1 1  h  ligand  K  T . 

Row  coordinate  of  current  character,  /ioent  /<»  >  ioeht  w  inte  rv 


rvalue 


5  dent  I f  I  c at  I  on  weight  of  data  for 
which  a  *stch  Is  sought  In  group 
additivity  arrays. 


/5£**CK/I»  )  SEARCH  I  INTE  RVALUE 


KW 

Identification  number  of 

the  ring 

/SV^ANG/T  • 

>  SVflHNG 

w 

iWTf 

XU 

xs 

Row  coordinate  of  Initial 

bond 

t  BOND 

/«  * 

)  AOND 

« 

I  NIC 

XX 

location  and  of  non-bond 

symbo  1  . 

XX 

Subscript. 

/rciuAi 

/<  * 

>  fOUAL 

w 

I  NIC 

Kl 

XX 

Row  coordinate  of  Indexed 
number  !  1 1 qind. 

alow 

/FIND 

n  • 

)  FIND 

1 

TNT£ 

XV 

sir 

Test  row  coordinate. 

/ 1DFN? 

/( * 

?  I0£«r 

u 

INTC 

XX 

X* 

Subscript. 

/I  t  $SF  « 

>  U  SSfcN 

W 

iurf 

XX 

XX 

Row  coordinate 

0  f 

first  location 

/Nunrtf  fi/i.  • 

>  N<!*BfR 

w 

INTf 

Kb 

along  NX  . n  irr 

Ay 

GRID. 

X* 

Croup  number  of 

previously 

/SANt 

/(  * 

>  SArtf 

u 

INTf 

XI 

identified  atow. 

«B 

Row  coordinate 

0  t 

first  location 

/r,r.  hn 

/{  *• 

>  SC*N 

N 

INTf 

KB 

t 1 o n q  N t  In  arc 

»:/ 

GRID. 

XXI 

How  rco.  dlnate 

0  t 

ligand  one. 

/NUHBFR/C  • 

>  WUMBCA 

0 

INTf 

XXI 

XXX 

Hob  coordinate 
to  II gand. 

0  f 

first  »tos  bonded 

.'St  AN 

/<  • 

)  SCAN 

i 

IHf  f 

X  IB 

xs* 

How  coordinate 

0  f 

second  character. 

/ 1  Of  NT 

/(  • 

)  ICtNT 

y 

INTf 

Kl£ 

XV 

Subscript  that 

dtf 

! n *  c  bond 

/CIS 

/»  • 

)  CIS 

y 

INTI 

XV 

direction  hetuein 

ito»s  Kl  *nd  S  <? . 

If  St*  II  I.  01-5* 


FttfUMN  MAIM 

SVMBOt  S»Kll(K 


DESCRIPTION 


_ Al£S«iL„  -,.5mO»Iig8„  WigH..,- 

tuocs  t<5t  fuse  u  Teas 75* CTm 


fit 

Nu«b»r  of  different  types  of 

/tQURt  t\  * 

\  taunt 

1 

INK 

SV 

1  dan 1 1 1 » 1  stows 

ft  . 

In  ligand  sots  A  and 

«v 

Number  of  ring* 

If  fused  ring  sat  A. 

tf  iAS.rn/t  * 

>  Fiesta 

y 

INK 

Rf 

RV 

Number  of  ring* 

tn  a  particular 

/fU>$l0N/l  * 

t  FUSION 

M 

INK 

«V 

fused  ring  sat. 

K* 

Nuwber  of  rings 

In  a  particular 

/HEXGON/I • 

)  MEtSON 

W 

INK 

RV 

fused  ring  sat. 

r,v 

Number  of  rings 

In  a  particular 

/W*!NGS/<  • 

»  NS ! MGS 

w 

INK 

RV 

f u  sad  r 1 rg  sat . 

RV 

Subscript  that  i 

deflnas  tha  Identity 

/SETUP  n* 

>  SETUF 

w 

INTE 

RV 

typ*  nu«btr  of  a  ligand  tba  first 
1 1  »e  said  ligand  Is  proctnsrd. 


RZ 

Group  number  of  cora  atom  whose  els 
ligands  art  to  ba  identified. 

/CIS  /( *  1 

CIS 

U 

INTC 

RZ 

R,» 

Roe  coordinate  of  first  location 
beyond  KX,I.  X  along  the  radial 
direction. 

/ I OENT  /t  *  ) 

IDE  AM 

M 

I«1f 

RZ 

RZCPJ 

<  i  > 

Contains  1  orations  In  ring  which 
have  unique  ligands. 

/fll  /{  N3I  H  > 

SVHRNG 

n 

r  mt  e 

KZEWO 

R/I 

Identification  number  of  core  atom. 

/CIS  /< •  ) 

CIS 

u 

1  NT' 

*U 

«l 

Group  number  ct  first  centra!  test 
cora  atom  . 

/US  /(*  1 

US 

1 

INU 

K  1 

•  1 

Group  number  of  first  central  test 
core  atom. 

/Ct SC0ft/< •  > 

C  1  scow 

1 

INTf 

R  1 

11 

Group  nijmbtr  of  first  central  test 
cora  atom. 

/CCftC i G/< •  ) 

COfiCIG 

w 

!NTC 

R  \ 

*1 

Identification  number  of  ring  ont. 

/CRINGS/l  •  » 

t.MNCS 

w 

1  Nrr 

R  1 

R3 

Group  nymbar  uf  flng  component. 

/CTwO  /f*  ) 

C  TWO 

w 

1  Ki  ( 

R  l 

Rk 

Group  numbtf  cf  ring  component. 

✓  C.  vro«w/<  «  > 

eveoww 

M 

INTI 

R  1 

Ml 

Subscript  of  routine  arrays. 

/on  i*  T(/c  •  i 

DELHI 

y 

INTI 

R  1 

R 1 

Group  number  of  one  gf  tiso  ligand 
stoms  currently  ’j  air  comparison. 

/■tCUPD  /t  *  > 

EQUAL 

y 

1  N  T  t 

R  1 

«k 

Group  number  of  an  try  atom  In  r  1  n  g 

A . 

/IQ  U  *>*/<«  1 

1  0UWI.M 

i 

INTI 

*1 

i  n 


i f  *p«  r» 


FORTRAN  *ATH 

SVHaOL  SYMBOL 


DESCRIPTION 


_ ^  ,.E 'fOttP.fi 

UIUL« 


•'.Vn?_ni!r  X'l’L. 

517ft  W  "  u  f vpi 


VAR 


K  t 

Group  nunfenr  of  entry  nto*  In  ring 

A . 

/E  I  RSTP/I  • 

>  FIRSTR  f 

INfC 

*1 

s ; 

Group  number  of  first  centra?  test 

isri  a t o * . 

/Eftt'CHE  M  * 

)  GAUCHE  fl 

INTE 

*) 

m 

Group  ‘lumber  of  first  af  1 1»  o  coot  ref 
core  atoms  bonded  to  » n  ortbo 

/ME  8  GON/<  • 

1  WTXG0N  tel 

i*Tt 

ttl 

1  1  g  *  ,‘t  d  . 

K  i 

Group  number  of  atom  previous  to  or 
parent  to  the  atom  tested. 

/L ! WEAK/C  « 

>  LINEAR  W 

INU 

AS 

K 1 

Group  number  of  atom  common  to  3 
fused  rings. 

/NR INGS/t  ♦ 

)  NR1NG5  W 

IWTC 

A  i 

Kl 

location  of  element  ’  n  IB  whose 

/ORCEP  /<* 

>  ORDER  W 

IWU 

A) 

weight  Is  to  be  compared  with  that 
of  clement  In  location  K2. 

K1 

Group  number  of  ring  compcnen4. 

/0* YATM/T • 

>  (tXVATM  W 

IN£E 

A  ! 

M 

Subscript  and  counter  limit. 

/RING  /( • 

>  RING  * 

INI* 

«1 

«1 

Group  number  of  atom  1  In  Identical 

/sp«t  n  * 

>  SAM*  I 

1  NT  F 

*  1 

ligand  1  . 

HI 

Group  number  of  ligand  core  atom 
bonded  to  atom  KC1 . 

/ Sf  TUP  /<* 

>  SETUP  u 

INTF 

I*  1 

<1 

Group  number  of  first  centre!  test 
core  atom. 

/  SOHNf.il  /<  • 

)  SOANE.  1  M 

T  Mf  E 

Kt 

KIN 

Group  number  of  one  of  t «  0  ring 

/  £  0  U  A  l  H/\  ♦ 

>  fClUALR  it 

1  NT  f 

*  1  A 

Currently  under  comparison. 

«  IPD 

C  t  a  i ')  number  of  atom  In  ring  branch 

set  mb *ee  the  deletion  stops. 

/OMflF/f* 

)  PEI  E  Tfc  | 

INTE 

K  1  H  U 

Nil 

Ordinal  number  assigned  ligand  1  for 
Identification  purposes. 

/  S  Anf  /f  * 

)  SAMI  I 

1  NT  f 

k  t  \ 

K| 

Group  number  of  second  rente  a!  test 
core  atom. 

/CIS  /l® 

>  c  i  s  i 

INU 

K* 

It 

Group,  number  :f  second  central  test 
cor*  etora. 

/r i sruA/i * 

>  Cl  SCOP  1 

INTI 

a* 

Kt 

Group  number  of  if ‘ ond  centra!  test 
core  atom. 

/four  i  r,  /  <  * 

>  CORCIG  it 

J  Hff 

Identification  number  of  ring  ♦  t*  o  . 

f *<  i  H  G  S  r  1  * 

)  IPINGS  W 

!  NFf 

it 

Group  number  of  ring  compuc.  ent. 

/r  vcoHA/f • 

v  C vlOPR  w 

INffe 

*t 

I! 


Subscript  of  routlnt  i  r  r  c  >*  I , 


/Of l f 1C  /  f  • 


1  net  f  T  f  W  I  N  T  f  c'.f 


■it-'.,  t.- -r  rrn.  ■  i ,  -7  »w,  r»  >  '•j**,*  •  -»’  n-j  v 


wwFr  yiingw*fn»iwji!it  wn^wwffpyjmiprpp! 


EORTRRN  HATH 

svntoi.  svnfOL 


DESCRIPTION 


_ - 

tioci  nrr 


ndll,,THgH«lSni 


K! 

Group 

number 

of 

ona  of 

t  mo  1 1 gand 

/couai  n  • 

)  fflU*L 

u 

INTI 

It 

atom* 

currant  1 y 

under 

compar 1  ton. 

K2 

Group 

». 

numbar 

of 

•  ntr  y 

atom  In  ring 

/EQURUR/T ® 

J  ctu»t.» 

1 

INTI 

It 

Kt 

Group 

1. 

numbar 

of 

antr  y 

at  on  In  ring 

/FIR$TR/f  • 

i  must# 

! 

INTI 

It 

12 

Group 

numbar 

of 

tacond 

etntral  test 

/ GRUfHE /<  • 

)  qruCme 

1 

INTE 

It 

cor#  atom. 

Kt 

Group 

numbar 

of 

second 

of  tan 

/H£XG0N/( • 

)  mi «oom 

M 

INTI 

It 

centra!  cor# 

atoi*  bondad  to  an 

ortho 

t 1 9»nd . 

U 

Subscript. 

/lESSCN/< • 

>  LESSEN 

W 

INTE 

It 

It 

Group 

numbar 

Of 

t  Si  a  atom  tastad. 

/UNEftft/<  * 

>  unfa* 

w 

INTE 

It 

It 

Group 

number 

of 

atom  common  to  3 

/NR  I NG5  /< » 

>  WRINGS 

M 

INTE 

It 

f  utad 

rings. 

Kt 

Location  of  a 

lament  In 

I G  *h  o  c a 

/ORDER  /<* 

I  ORDER 

W 

INTE 

■  2 

ae  !  ght 

It  to 

b# 

compared  alth  that 

of  element  In 

location 

K  1  . 

** 

Group 

number 

of 

oto*  ! 

In  Identical 

/SAME  /< # 

)  SAISE 

I 

INTE 

K2 

1  1  g  and 

2. 

It 

Group 

number 

0  f 

1 l g  an  d 

cora  atoa 

/SETUP  /«• 

)  SltUR 

M 

(NIE 

■  t 

bonded 

to  atoa  K  C  2 . 

*t 

Group 

numbar 

3  f 

second 

central  tut 

/SOKNGI/C • 

>  SORNGI 

W 

INTE 

It 

«?■ 


cart  k  t  o  n . 

Group  number  of  ona  of  t»o  ring  /k8URiR/i»  >  fOUALR  w  INti  rtn 

atoms  Curr*nt  ly  gniir  t owp er I  * o n . 

Star  age  location  v  »r  •  able  for  KNTB.  /rouaiR/<»  I  muHk  a  i»rt  USE) 


*1 


Ordinal  Atmber  assigned  ligand  2  for  r'.r«f  ft*  >  S»mc  I  INTE  «2t 
Identification  purpose*. 

Group  atom  of  n  I  f  r  ag  *  n  ring  atom.  /NR)Nt'S/t*  >  wrings  n  IkMl  ** 


*1 


l* 


Loaar  «  It*? nt  of  array  I  A  ti « t  d  In 
Or  ii#r  chaeJk, 


/OMOl »  /i  « 


>  order  u  inti  *j 


Identification  numbar  of  rora  ate*.  /sornsi/«»  >  SORnoi  w  inti  •) 


Up  par  element  of  array  I*  utad  In 
order  check. 

Column  fssri)Sn»t«  of  i  r.  d  *  >  a  d  err# 
atsa. 


/ORDIR  ft- 


i  0*0M  u  IKK  «a 


.'»ssriw/i«  i  assign  i  inn  *. 


!  I  are  ri  « . oi- H 


L 

Loop  counter 

end 

sub icr 1 pt . 

/CHAlNA/< • 

>  ckainu  w 

IN1C  L 

t 

Loop  counter 

and 

subscript. 

/CHANGE  fi • 

}  CHANGE  y 

INTE  L 

L 

Loop  counter 

and 

subscr i pt . 

/Cl SCGA/T * 

>  C 1  SCO*  w 

INTI  t 

L 

Loop  counter 

and 

sub  scr 1 pt . 

/CORCIG/T  • 

r  CORCIG  w 

INTE  1 

L 

Loop  counter 

and 

sub  script. 

/CYCOAR /(  • 

)  CYCOAR  U 

INTE  C 

L 

Loup  counter 

and 

sub  script. 

/CRT  A  |  /<• 

)  OAT  A 1  y 

INTE  L 

L 

l.oop  counter 

and 

sub  scr 1 pt 

/0! TFRE/<  • 

)  OITEAE  y 

INTE  l 

L 

Loop  counter 

and 

subscript. 

/f KTR0T/(  • 

)  EXTAOT  y 

INTE  L 

i 

Entry  value: 
Indexed  atom, 
coord  1 nate  ol 

column  coordinate  of 
Exit  value:  col umn 
'  core  atom. 

/FI  NO  /!  • 

)  F 1  NO  n 

INTE  L 

t 

Loop  counter 

and 

subscript. 

/FUSION/I • 

>  FUSION  W 

INTE  L 

L 

Loop  counter 

and 

subscr 1 p  J . 

/b^DAT A/4  * 

»  GAO A  T  A  y 

INTE  L 

l 

Loop  counter 

and 

subscript. 

/GAUCHE /< • 

)  GAUCHE  M 

INTE  L 

C 

Loop  counter 

and 

subscript. 

/HE  1  GON/I  • 

)  hi  icon  y 

INTE  L 

t 

Column  coordinate 
of  symbol. 

of  first  character 

/  1  Of  NT  /I* 

)  IDENT  ft 

INTE  L 

t 

Loop  co 'inter 

and 

subscript. 

/  INTRO? /<  • 

>  INTRO?  U 

INTE  t 

L 

Loop  counter 

and 

subscript. 

/\ i jbtH/i • 

)  If  SUN  y 

INVI  t 

t 

Loop  counter 

and 

subscript. 

/*aiCmN/(  • 

>  mascmn  w 

INTE  t 

1 

loop  counter 

and 

subscript. 

/mi n  r  I  /<  • 

)  MIJLU  y 

INTE  L 

L 

Column  coordlm  of  Indexed  core 
•  ton . 

/NUMB! A/(  • 

1  NUMBER  : 

INTI  l 

L 

Subscript  of 

symbol  array  (SYMBOL). 

/FAINT  1  fi  • 

1  FAINT)  y 

INTI  t 

KM) 


ir  era  m  e  oi-ii 


FORTUM 

SVftflOL 


WATN 

SV*m 


DESCRIPTION 


i  Loop  counter  end  subscript.  /hesetp/i»  >  heset#  k  i*te  l 

i  Column  coordinate  of  co"~  atom  In  /scam  /( •  i  SC»m  I  ihte  i 

err  ay  GRID. 

L  Loop  counter  end  subscript.  /setup  /( •  f  setup  m  inte  l 

t  Loop  counter  end  subscript.  /Shift  /(•  >  shift  w  imte  l 


1  Loop  counter  end  subscript.  /s;hngi/(»  i  sohwgi  *  ihte  l 


1 

Column  gird  coordlnete  of  core  atom. 

/5TAN0  /(»  ) 

>  STAND  M 

I  NT  £ 

L 

l 

Description  not  Input 

/SYF,RN(»/<*  ) 

S YftRNG  « 

INTI 

ft. 

l 

Loop  counter  ind  subscript. 

/SYrtT«Y/<*  > 

SYNTRV  W 

1  NTF 

L 

L 

Loop  counter  and  subscript. 

/  T C;  A R  /(f  ) 

T  gar  y 

INTI 

L 

LABEL  | 

)  Hollerith  symbol  fur  blank.  Input 

array  containing  Identification 
label  for  molecule  (optional). 

/BLKN  /(  ?  ft  8  1  ) 

T  GAR  ft 

f  ft*  ft 

LABEL  <  SO ) 

LO 

Assigned  change  In  column  coordinate 
of  symbol  Input  array. 

/  A  S  S  J  G  N  .*  <  *  ) 

ASSIGN  0 

INTI 

LO 

10 

Change  in  column  coordinate 

/BOND  /( •  » 

BONO  I 

1  NT  f 

10 

10 

Change  In  roa  coordinate  for  Inde/ed 
atom  number  1  ligand. 

/FIND  /(  •  > 

FIND  1 

INTI 

LO 

10 

Change  In  column  coordinate. 

/ 1 DE  NT  n  •  > 

JDfNT  y 

I  NT  f 

LO 

10 

Change  In  column  coordlnete  of  array 
GRID. 

/NIJftBf  A  /(  *  > 

NunBlA  1 

INTI 

LO 

LD 

Change  In  rolumn  coordlnete  1  u ' 
transformation  to  NX. 

/  SCAN  /\  •  1 

SCAN  | 

INTI 

LO 

t  00 

Change  In  column  coordlnete  of 
i 1 gend  one . 

/NUUBfc  B/l  •  ) 

Nuftfcfn  o 

1  NT  f 

LOO 

LOOMS  (  | 

1)  Indicator  errny 

/  B  •  «  }  /  *  3  2  Q  *  ) 

SvnTAV  ft 

INTI 

LOONf  M  00  > 

1=0  composition  of  ell  tlgende 
of  t  core  atom  not  yot 
f  rund  . 


1=1  ell  compositions  h»vi  been 
found. 


EONTfUN  HATH  nCCrDTDTIflM  _ SIOBAr.f _ SunaoutlNF  USaGE 

S»"30L  SVIS60L  D  £  O  L  n  X  r  I  I  U  IM  BLI)C«"  i'uC  SUOiT  u  TYPE  V PH  dTh 


1.0*  LO  vtlut  of  second  characttr.  /ioent  /<  •  >  ioent  u  inte  i.o* 

lessee*  Examines  the  uniqueness  of  the  ring  /lessen/*  » 

structures  Identified  by  the 
program.  Any  rings  that  are  equal 
to  other  rings  or  composed  of 
smaller  rings  are  discarded. 

Lf  Upper  limit  of  loop  counter.  /oitere/i» 


U f 

Upper 

limit 

of 

loop 

counter  that 

/EQUAL  /<• 

)  EQUAL 

1 

INTE 

LF 

contro Is  th« 

»  s  e 

lection  of  a  test 

1  1  gand 

1.01* 

set 

A. 

lf 

Upper 

limit 

of 

loop 

c  ounter  . 

/GAUCHE /l # 

>  GAUCHE 

U 

INTE 

LF 

Upper 

limit 

0  f 

loop 

counter  . 

/LC&SEN/f * 

)  LESSEN 

y 

INTE 

Lr 

LF 

Upper 

limit 

of 

loop 

counter. 

/Nf'WCQl.  /  (  * 

)  NFWCOL 

u 

INTE 

lf 

LF 

Upper 

limit 

cf 

loop 

r ou  nt  er  . 

/HF  Sf T  A  /  (  • 

)  HfcSETR 

u 

INTE 

LF 

IF 

Upper 

limit 

of 

loop 

counter. 

/SCANBR/I  • 

>  SC  ANAR 

u 

INTE 

IF 

LF 

Upper 

limit 

0  t 

loop 

counter. 

/!>(  ANI.H/<  • 

)  SCANCH 

u 

INTE 

LF 

If 

Upper 

limit 

0  f 

loop 

counter  that 

/*>L  f  UP  /(  * 

)  SUU* 

I 

INTE 

LF 

controls  the 

s  e 

lection  of  a  test 

1  i  g  a  n  d 

fro* 

set 

A. 

IF 

Upper 

limit 

0  f 

loop 

counter . 

/  mjhNG  I  n  * 

)  S0RNG2 

w 

INTE 

LF 

i.Ei*(.e  Data  flag 

-0  no  group  data  are  missing 
from  data  library. 

-I  one  or  more  group  data  are 
missing  from  data  library. 

i  nans  Data  flag 

•0  symmetry  and  optical 

contributions  ara 
computable. 

=1  symmct  y  and/or  optica! 

c  o  n  v  r  I  b  u  t  I  0  n  * 
none  ompu  table  end 
data  for  thtlr  computation 
not  Input, 

tfll  Subscript  of  array  PtHTKC  that 

assigns  th»  group  number  of  a  II  g  and 
cor*  atom  bonded  to  atom  KCJ. 


/ at  «s  /( 


/n  «s  /( 


/lOijaL  /i  » 


hi  )  I  GOB  is 


M  )  F  u  I  s  v  n  0 

tree  I 


i  eQluu  u 


I  ME  I  FI  ar.G 


lull  iriar.s 

IMF  i  ei  ar.s 


mu  mi 


)  CM»1NIS  S  LESSEN 

LESSEN  f  LESSEN 

PING  S  LESSEN 


>  OITERE  W  INTE  LE 


i?  pea  rj  p  o*-J* 


soarntos 

svneot 


maim 

StWSOI. 


DE SCR  I  FT  I  ON 


iLOC*  lO(T  Tub*  uiVpT  ilif  old 


LSI 


Subscript  of  irriy  PERTKC  th»t 
assigns  the  group  number  of  a  ligand 
core  ate*  bondad  to  atoai  KCI. 


St  TUB  /I  •  I  St  TUB  W  l*f£  ISI 


LSI 

Subscript  of  array  PERTKC  that 
assigns  the  group  number  of  a  ligand 
cora  ato*  bonded  to  atom  KC2. 

/EQUAL  /<•  ) 

1  EQUAL 

W  J  NT  ? 

L62 

L61 

Subscript  of  array  PERTKC  that 
assigns  tha  group  numbar  of  a  ligand 
core  atom  bondad  to  atom  KC2. 

/SETUP  /<*  ) 

SETUP 

W  I  NT  t 

L62 

LI 

Loner  limit  of  loop  counter. 

/ 0 I TERE/C •  > 

OJTERE 

W  INTC 

L! 

L 1 6A*0 

(  i , j, k  » 

Contains  atonic  composition  1  of 

/BLR 3  /t  i 

StHNBPt 

rt  i  NT  t 

1.  IGaNIH  3,5,100) 

ligand  j  of  core  atom  k. 

SCANCM 

SETUP 

A  INTC 

1  1  NT  E 

L 1  GAND< 5,*, 100 > 
LIGAND*  5,9, 100 ) 

SVPJTRV 

A  I  NT C 

L  JGANOI  5,9,  100  > 

LI* 

Number  of  elements  In  array  IA  or 

16. 

/ORDER  /(*  ) 

ORDER 

I  I  ATE 

UR 

LI* 

Dimension  of  array  to  be  searched. 

/SEARCH/I*  ) 

SEARCH 

!  J  N7E 

L!H 

LIAI1 

Chain  location  occupied  by  atom  at 
the  start  of  the  branch  test  cycla. 

/SVWTRV/C#  ) 

SYATAV 

W  INTE 

LIAIT 

LINE 

(  i  ) 

indicates  whether  ligand  1  Is  (1)  or 

/CL  N  I  /<  3879) 

E  X7R0T 

A  IN1E 

LINE  <2> 

Is  not  (0)  linear. 

L  I  NS 

Denotes  the  rotational  symmetry  of 
the  ligand. 

/C  TWO  /<*  ) 

C  TWO 

1  1  ATE 

LINE 

UNI 

Denotes  uhrther  ligand  Is  <1)  or  Is 
not  <  0 )  linear. 

/EOUALR/I*  ) 

f a UAL  A 

l  INTC 

LINE 

U*f 

Denotes  mhether  ligand  Is  (1)  or  Is 
not  (0)  linear. 

/L ! Nr  AA/<  •  > 

l INtAA 

0  INTE 

t.  1  Nt 

LIN 

Description  not  Input 

/ SVMHNR/C  «  ) 

S  VPlRNfi 

1  J  NT  E 

LINE 

1 1  near 

Establishes  the  linearity  and 

/UNFRR/U  ) 

C  TWO 

$ 

L  I  NEAP) 

rotational  symmetry  of  a  particular 

EQUAL  A 

F  MINOT 

S 

S 

l 1  NEAR 

LINEAR 

1  1  g  a  n  d  . 

5  INFAA 

C 

1.  1  N|  A  A 

SYf'.RNG 

S 

1  INFAA 

I  * 

Upper  limit  of  counter  K  K  of  ring 
test  <  y  c 1 e . 

/CMA>Nn/<*  ) 

CHAINS 

M  ;  NT  F 

i  * 

LL 

Loop  counter  and  subscript 

/CORC  t  0/ 1 »  ) 

COACIQ 

W  INTI 

LI 

IL 

Subacr Ipt. 

/GAuCNF/t  >  ) 

gauche 

A  I  N !  E 

LL 

1 1  *b«  n  *. o i  n 


FORTRAN  AMT  *4 

SVMHOl  svfisoi 


DESCRIPTION 


STQAAnt  _ $  URnm.lT  |  NE  t»AQE 

CLOCK  LOC  suoa  U  TYRE  var  of 


it  aar  n  n.oi-jt 


Loop  counter  and  subscript. 


/INFAOT/(o  >  INTROT  W  INTE  LL 


Loop  counter  and  subscript. 


/NEWC0L/(*  )  NEWCOL  U  INTE  LL 


loop  counter  and  subscript. 


/RING  /( •  I  RING  W  INTE  LL 


Loop  counter  and  subscript. 


/SHIFT  /( •  )  SHIFT  W  INTE  LL 


Loop  counter  and  subscript. 


/S0RNG1/T*  I  SORNGJ  H  INTE  LL 


Lower  limit  of  cycle  counter. 


/STAND  /<♦  )  STAND  U  INTE  LL 


Subser I pt . 


/TGRR  /I »  )  TGAP  U  INTE  LL 


Number  of  atoms  or  links  In  chain. 


/CHA!NA/(»  >  CHAINA  U  SNTE  LA 


Location  j  In  MBC( I ,  j )  of  uppermost 
element  In  portion  of  nig  chain 
defined  In  Subroutine  NEWCOL. 

Number  of  atoms  In  chain  LX. 


/reur.OL/i *  >  nfwcoi.  a  inte  la 


/RING  /( •  (RING  1  INTC  LA 


Number  of  components  of  a  particular 
chain. 

Chain  location  of  atom  below  atow 

Lnn. 

Location  In  chain  l.XX  of  core  atom 
under  Inspection. 

Chain  location  of  n  e  *  t  atom  down  the 
chain. 


/Svm»riy/<»  >  symiHy  w  inte  la 


/svunw/t*  )  syatry  u  inte  laa 


/Svutrv/i*  )  S/nTHy  u  inte  l"A 


/S^airy/i*  )  Syatry  w  IN?E  LIS) 


Contains  ring  locations  of  CO  atoms.  /BLK.1  /(  srhIi  CycORA  o  inte  loccj  <301 


Contains  ring  locations  of  nitrogen 
« toms . 

Contains  ring  locations  of  oiygen 

items . 

Ring  atom  which  may  be  adjacent  to 
on#  or  two  CO  group*. 

Lower  limit  of  loop  counter. 


/  0 1.  K  3  /(  3  R  T  I  I  r.vtORA  A  INTE  TOCN  (30  1 


/Bi*3  /(  TSOI  I  CVCOHA  A  INTE  I  IKO  (30  1 


/0«VATA/(»  1  ClVATA  !  INTE  LOCI 


/SCANBA/(»  !  SCARBA  W  INTE  IS 


Lower  limit  of  loop  cogntir. 


/SCANCH/I*  I  SCANCM  u  inte  ls 
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Li 

Column  coordlnete  of  core  eto*  JC. 

/shift  /«• 

} 

Shift 

M  INTE 

LS 

L$ 

Start  location  In  KGR1D  Into  ehleh 
column  of  data  from  array  GRID  la  to 
be  tranafarrad. 

/Teas  /(• 

T  GAR 

M  INTE 

Li 

L* 

Column  coordlnata  of  currant 
char  actor . 

/ 1 OENT  /)• 

IDENT 

W  INTE 

L« 

LI 

Column  coordlnata  of  Initial  bond 
location  and  of  non-bond  tymbol. 

/BONO  /«• 

BONO 

n  INTE 

LI 

LI 

Computed  numbar  of  chains  in 
noiecule. 

/CHAIN*/) • 

CMfilNM 

N  INTE 

LI 

LI 

Computed  numbar  of  chains  In 
mo  1 acul a . 

/CHANGE/)* 

CHANGE 

1  INTE 

LI 

l  1 

Computed  numbar  of  chains  In 

Molecule. 

/CORCIB/) * 

C0RCI6 

I  INTE 

LI 

LI 

Column  coordlnata  of  Indexed  atom 
number  '  1 1 gand . 

/FIND  /(• 

FIND 

1  INTE 

LI 

LI 

Test  column  coordinate. 

/IDENT  /<• 

IDENT 

W  INTE 

LX 

LI 

Subscript. 

/LESSEN/C* 

LESSEN 

U  INTE 

LI 

LI 

Computed  number  of  chains  In 
mo  1 acul e . 

/rlAXCKN/) • 

MAXCHN 

1  INTE 

LI 

LI 

Computed  number  of  chains  In 
molecule. 

/NEUCOL/I • 

NEWCOL 

n  INTE 

LI 

LI 

Column  coordinate  of  first  location 
along  NX  In  array  GRID. 

/NUMBER/)  • 

number 

U  INTE 

LI 

LI 

Computed  number  of  chains  In 
molecule. 

/RESET*/)  • 

RESETR 

1  INK 

LI 

LI 

Computed  number  of  chains  in 
molecule.  Refers  also  to  the 
particular  chain  under 

1 nvest 1 ge 1 1  on. 

/RING  /)  • 

RING 

1  INK 

LI 

LI 

Column  coordinate  of  first  location 
along  NX  in  array  GRID. 

/SCAN  /(• 

SCAN 

U  INK 

LI 

LI 

Loop  counter  end  subscript. 

/ SC  ANSA /( • 

SCANBR 

U  INK 

LI 

LI 

Loop  counter  and  subscript. 

/5CANCH/I  • 

SCANCH 

W  INTE 

LI 

LI 

Computed  number  of  chains  In 
molecule. 

/Svm»Ry/i  • 

) 

SVNTRT 

1  INK 

LI 

ir  am  rj  i.ohi 


186 


FORTRAN  HftTH 

DESCRIPTION 

STORAGE 
8i  in'iT 

_ suaaouTjmf 

US  *01 

SVBSOl  SYflBOl 

)C  SU0R  U 

?VRC 

vaa oTff 

LI 

Number  of  chain*  In  molecule. 

/TGAR  ft  * 

>  7GAR  f 

INK 

IX 

Lit 

Uppermost  chain  column  used  In  the 
construction  of  the  nee  chain. 

/CMMNn/i  • 

»  CHAIN*  M 

!NTf 

L  XL 

LH 

Last  computed  chain  to  be  used  In 
the  calculation. 

/NEWCGL  ft  * 

)  NEWCOL  I 

INK 

LSI 

LXI 

Column  coordinate  of  ligand  one. 

/NunfE*/<  • 

>  mum*  o 

INTE 

L  XX 

Lll 

Number  of  chain  that  Identifies  ring 

K  . 

/RE$ETR/< ♦ 

>  RESETS  M 

INTE 

L  XX 

ill 

Number  of  chain  that  contains  ring 

LL. 

/RING 

1  RING  W 

INTE 

LXX 

m 

Column  coordinate  of  first  atom 
bonded  to  II  gand . 

/SCAN  /<• 

>  SCAN  > 

INTE 

LXI 

LI* 

Number  of  the  chain  under 

1  nspect 1  on. 

/SvnTRv/< • 

)  SVntAV  W 

INTE 

L  XX 

LIS 

Column  coordinate  of  second 
char acter . 

/  I  OENT  /<• 

)  !  DENT  W 

INTE 

IK 

L  V 

Chain  number  of  longest  chain 
computed  thus  far  by  routine  P1AXCHN. 

/MAXCHN/( • 

)  NAXCMN  y 

INTE 

LV 

LV 

Used  to  denote  location  of  KCPV 
element  In  chain  as  pell  as  the  nea 
chain  number . 

/NFUCOL /< * 

>  NEuCOL  U 

INTE 

LY 

LYP 

Chain  number  of  longest  chain. 

/MAXCMN/’I  • 

)  WAKCHN  y 

INTE 

LVF 

LI 

Column  coordinate  of  first  location 
beyond  K X , l X  along  the  radial 
direction. 

/  I  Of  NT  /<• 

>  ICENT  ia 

INTE 

LI 

LI 

Group  number  of  core  atom  bonded  's 
first  central  atom  and  els  to  L2. 

/CISCOR/t* 

>  CISCOR  U 

INTE 

LI 

LI 

Location  of  data  (subscript  of 

RINGC)  for  the  ring  corrections  of 
ring  K  . 

/r  ORC 1 G/( • 

)  CORCIG  y 

INTE 

Ll 

LI 

Location  of  ring  correction  data 
(subscript  of  R1NGD)  for  ring  K. 

/C VCORR/I • 

>  CVCQRA  0 

INTE 

LI 

LI 

Group  number  of  cor#  atom  bonded  to 
second  central  atom  and  els  to  LI. 

/CISCCA/I* 

>  ciscor  y 

INTE 

Ll 

* 

Anount  by  uhleh  bond  direction  la 
changed. 

! CIS  /!• 

)  CIS  M 

INTE 

* 

M 

i?  am  n  d.oi-9* 

Loop  countar  and  subscript. 

/cycorr/t  • 

)  CYCORR  H 

INTE 

n 
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FQBTAAN 

SvnsOL 


M«TM 

5»H»OL 


"*™l*  (  I, j  ) 


l»  »r  A  rs  6, 01*14 


DESCRIPTION 


Code  symbol  of  Indeiad  etoa. 

Subscript  of  SYMBOL  array  used  for 
I dantl c I rt  Ion  of  Input  symbol. 

Loop  counter  and  subscript. 

Loop  counter  and  subscript. 

Loop  counter  and  subscript. 

Subscript  of  prograa  library  symbol 
that  corresponds  to  Input  symbol. 

Loop  counter  and  subscript. 

Loop  counter  and  subscript. 

Loop  counter  and  subscript. 
Identifies  type  of  ligand  atom. 

Loop  counter  and  subscript. 

Counter . 

Subscript  of  array  SYMBOL  used  to 
Identify  a  chemical  symbol. 

Subscript  of  array  SYMBOL  which 
designates  a  particular  chemical 
symbo I . 

Contains  location  of  CO  group  In 
ring  K . 

Aromatic  ring  flag. 

1=1  core  stom  I  Is  an  aromatic 
benteno-typ*  r'ng 
component . 

1=2  cora  atom  I  la  an  aromatic 
pyr I dl ne «ty pa  ring 
componant. 

1=0  core  atom  I  Is  not  on 

aromatic  ring  component. 
Contains  ring  locations  (I)  of  all 
llgonds  belonging  to  sat  j  of 
I  dan 1 1  cal  I  I ganda . 


/find  /<•  *  rime  i  imtt  m 

/IDENT  /» *  >  101X7  n  IXTC  N 

/intoot/i*  )  intaot  m  imrt  n 

/LESSEN/I •  I  LESSEN  M  INTE  m 

/nasCMN/o  t  naiCMN  u  inti  n 

/rnULTI  /<«  >  rnuLYI  0  INTE  N 

/p>vnrn/(»  >  oivarm  w  inte  n 

/FAINYI/<»  )  Fa  I  NT  I  M  MTE  N 

/AESETA/I*  >  FESETn  U  INTE  N 

/SCAN  /(•  I  SCAN  I  INTE  N 

/SETUF  /(  •  )  SETUF  W  INTE  N 

/SORNGI/O  I  SOAXGI  U  INTE  N 

/STAND  /(  •  )  STAND  U  INTE  n 

/ SunAT«/<  *  I  SUnATN  I  INTI  N 


/»LK3 

/<  3*31  ) 

OirATH 

n 

INTE 

HA 

1  SOI 

/Bill 

n  !?*$> 

cowrie 

0 

INTE 

H#*0 

(1001 

GAUCHE 

i 

INTE 

HARO 

(  1001 

HE  EGOR* 

0 

INTE 

HARO 

(1001 

/BLFA  /(  XISOI  SvnANQ  rn  INTE  nATnil(*,*l 
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SvnSOT. 


HATH 

svntot. 


DESCRIPTION 


«. rnj »<•£___  I 

OCX  LOf  JUBA  U  UPE  VAN DIM 


Okserlptlon  not  Input 


/Svhang/1  • 


I  SVNANG  U  INTI  NAS 


Location  ot  last  data  group 
contained  In  Bensons  tables. 

Finds  the  longest  chain  In  the 
Molecule  and  prints  out  the  group 
numbers  of  the  core  atom 
constituents  of  the  chain.  If 
asymmetric  atoms  are  present.  It 
also  determines  If  another  chain  of 
the  same  (maximum)  length  Is  present 
which  contains  more  asymmetric  atoms 
than  the  first  mailmun  chain 
detected.  If  so,  this  chain  becomes 
the  new  maximum  chain. 

Maximum  value  ot  MO  IF. 


/?G»f  /»• 


/haichn/i » 


>  tgap  u  inti  net 


)  coacie  S  naiCHN 

neiCHt*  c  naiCHN 


/change /<  • 


)  change  w  inte  mexo 


Location  of  branch  atom  in  chain 
mAXL. 

Chain  number  c  or  re  spend  I  ng  to  P1AXD. 


/CHANGE /I  *  )  CHANGE  w  INIE  n»I!I 


/CHANGE/I*  )  CHANGE  U  INTE  HARI 


Upper  limit  of  loop  counter. 


/SvrmNG/c»  )  Svuhng  u  inte  ne/T 


Contains  group  numbers  of  core  atom 
constituents  of  longest  chain. 


/SLXS  /i 


■  >  extaot  i  inte  nsc  <so> 
tiaxchn  n  INTE  nac  (SOI 


Left-most  location  of  data  In  column 
j  of  array  GRID  or  In  array  LABEL. 

Right-most  location  of  data  In 
column  j  of  array  GRID  or  In  array 
LABEL. 

Properties  of  longest  chain. 

1=1  number  of  atoms  In  longest 
chain. 

1=2  chain  number  of  longest 
eh  e I n . 

Contains  the  ordinal  ring  number 
<  KCV  )  of  the  test  ring  ptlr  to  ono 
of  uhleh  the  non-ring  core  atom  I  Is 
bonded. 

Total  number  of  entrlos  In  art ey 
flDEL. 


)  TGAP  M  INIE  nil 


/TGAP  /< •  )  T GAP  U  INTE  mSR 


/SLXS  /(  JTI  EXTAOT  I  INTE  PISS  (I* 
PIAXCHN  0  INTE  mas  1 1 1 


/DIM  /(  l»*S>  E DUAL  I  INTE  PICV  TIOOI 
EOUAiA  n  INTE  nCV  (TOOT 

svmnv  0  INTE  nev  <  100T 


/ai«i  /i  SAin  coacio  n  inti  no 
cnings  n  INTI  PIO 
hixgon  m  inti  no 


If  AM  ft  r. 01-10 
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EOSTAAN  MATH 

SYMBOL  SYMSPL 


DESCRIPTION 


si oa»r, f  « i ' \npiy  i *;*  usage 

“Tloc*  ktc  rciii*"  u  r*vt  j»sow 


Contain*  the  ring  number  of  the  /am)  /«  ssui  corcig  i  inti  non  *  to » 

ring*  which  fora  part  of  an  aromatic  S  !2I!  CSI,1  i  H2 ! 

fused  ring  system  and  whose  ring 
correction*  art  not  to  bo  used  In 
th*  calculation. 


Toralnal  group  flag. 

=0  terminal  group  I*  present 
In  molecule. 

=1  terminal  group  I*  not 
pr «  *ent . 

Th*  difference  12  *  II. 


/CHAIN!*/* • 


/CHANGE/*  • 


I  CHAIN!*  W  INTI  MOIE 


)  CHANGE  M  INTE  NO  IE 


Terminal  group  flag. 

=0  terminal  group  I*  present 
In  molecule. 

=1  terminal  group  I)  not 
pr  a  sent . 

Number  of  ring*  for  which  there  are 
no  ring  corrections. 

<|fj)  Mg Itl -variable  array 

1=1,2 

group  numbers  of  entry 
ring  atoms  In  two  test 
rings. 

1=3  number  of  non-ring  ligands 
I n  two  test  rings. 

Input  value  for  total  number  of  meso 
structures  of  molecule  (optional). 

Input  value  for  total  number  of  meso 
structures  of  molecule  (optional). 

Input  value  for  total  number  of  meso 
structures  of  molecule  (optional). 

Computed  value  for  th*  number  of 
meso  structures. 

Upper  limit  of  loop  counter. 


/RESETS/* •  )  RESETS  I  INTE  nOIE 


/CORC I G/*  •  I  COR C I G  U  INTE  ME 


/SLR  1  /*  1029)  EQUAL  I  INTE  HE R  0,10) 

EOUAlR  0  INTE  PER  t  3,<*0  I 

SVCITRV  0  ll*!E  nER  f  J.HO) 


/CORCJG/I • 


/ENTSVn/t • 


/TGAR  /(  • 


/OCORR/I  * 


I  CORC I G  I  INTE  ME  SO 


)  ENT 5VM  I  INTE  MESO 


>  TGAR  W  INTE  MESO 


>  ENTSVM  U  INTE  MESOC 


>  CYCORA  W  INTE  ME 


Number  of  components  In  reference 
ring. 

Upper  limit  of  loop  counter. 


/lessen/*  • 


/0«VI  TM/*  • 


I  LESSEN  W  INTE  nr 


I  0 X V ATM  u  INTE  ME 


l pper  limit  of  loop  counter. 


/RESITR/I  • 


I  RESETS  W  INTE  ME 


Upper  limit  of  loop  counter. 


I  SORNG I  M  INTE  ME 


IT  AER  ti  O.OI-IS 
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FORINAM  HATH 

SvnftOL  SV«iOt 


OtSCRIPTI ON 


s  ijht  «r,t  _  simminw  nsanr 
"flVnVn  ioc  full*  u'TtTi  var  o' 


Tvpe  var  oR 


Designates  the  weight  correction  to 
be  applied  to  the  non-rtng  core 
atoms  bonded  to  the  ring. 

Flag.  It  non  ito,  the  elements  of 
IB  correspond  I ng  to  JC  are  reiet. 
Otherwise  they  are  not. 

Number  of  atoms  contained  In  longest 
chain  d  I  v I ded  by  2 . 

Atom  position  In  longest  thaln  equal 
to  W! D2  plus  ono . 

Group  number  of  ring  component. 


/B! « T  /<  3»0 1  )  mC  i non  m  inte  mM «  <  I oo  > 


/shim  /<  •  i  shim  i  I  hie  inflae 


/HIROT/I*  I  EITAOT  W  INTE  mot 


/e«taot/i»  i  fmapt  w  inte  mote 


/c»coar/c*  i  cycoan  u  i me  nj 


Value  of  counter  J. 


/ 1  DENT  /(  •  )  I  DENT  W  INTE  HJ 


Upper  limit  of  loop  counter. 


/c/roRA/i*  >  cvcoar  u  inte  ishje 


Contains  group  numbers  for  els 
ligand  pairs.  If  the  ligand  Is  not 
a  core  atom,  the  group  number  Is,  of 
course,  0.  Uganda  1  =  1  and  1=3  are 
els  to  each  other  as  well  as  ligands 
1=2  and  l=*». 

Ring  scan  tost  tndl-acator  array. 

1=0  ring  I  has  not  baen 
scanned  In  reverse 
direction. 

1=1  yes  It  has. 

Loop  counter  and  subscript. 


/am)  /(  ssobi  cis  o  inte  rt  t  m 

r.iscoa  I  INTI  ISM  IS) 

c*rnHR  i  inte  hrt  i  a  i 

f  sirot  is  inte  ism  i  a  i 


/DIRT  /(  5T3S)  FOIJAl  I  INTE  ISM  IN0I 

I  -3UAI  R  IS  INTE  f.KT  <  NO  I 

SVr.tRV  0  INTE  RIM  C  NO  I 


/F0U«L  /( •  i  (OUAL  U  INTE 


Loop  counter  and  subscript. 


/IFSSEN/I*  I  I.FSSFN  u  INTE  mm 


Value  of  j  Indee  In  IX(l,j,k>  where 
the  search  for  the  core  atom  data 
c  oismenc  •  s . 

Value  of  J  Indev  In  IX(l,j,k>  where 
the  search  for  the  cor#  atom  data 
commence  a . 

Upper  limit  of  loop  counter. 


/SCAN  I •  I  SCAN  I  INTE 


/STAN0  /I  •  )  STAND  u  inte 


/LESSEN/!*  t  IFSSFN  U  INTE  mmr 


Number  of  etom  pelrs  stored  In  array 
PIN  I  X . 

Nunber  of  atom  pairs  stored  In  array 
PINIX. 


/CORCIC/I •  >  CORCIO  U  INTE 


/S0RNGI /!  •  I  SORNfil  H  INTE 


it  era  n  n.oi-n 
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w*C 


nun 

noiwf 


<  l,j) 

(  I  ) 

<  I  ) 


Contain*  value  of  NC  (  j  =  1  >  and  group  /air*  /< 
nuabir  KC  < j  =  2  )  of  branch  cor# 

•toms.  Th#  exception  occur*  with 
cor#  stoi*  on#  which  I*  alio  Included 
when  It  ha*  only  two  cor*  atom 
I  I g  and  a . 

Indicator  array  that  tpeclfl**  /am  n 

whether  cor#  atom  I  ha*  bean 
processed. no  If  0,  ye*  If  t. 

Computed  weight  of  each  group  In  /ei.xt  /< 

■  o I  ecu  I #  . 


at  stano  a  inti  mnc  noo.ti 


lit  ccac 1 6  n  inti  nnii  d.tooi 
SOAngi  n  inti  nan  it, 200) 


i«>  ositm  n  inti  noiwr  iiooi 

ocuat  n  inti  fiolmt  <  aoo  i 

hisgon  n  inti  noewt  iioot 

painti  i  inti  noii/T  iiooi 

STAND  H  INTI  KOtUT  IIOOI 

TGAP  I  INTI  N0UMT  IIOOI 


nr 

nros 


M 

nan 

nan 

nasi 

nasi 


Number  of  ligand*  attached  to  /nao  st«  iiino  i  inti  nr 

lnde»*d  aton. 

Number  of  ligands  of  Indexed  atom  /Nunaian*  i  aunota  n  inti  nr 

computed  In  subroutine  NUMBER. 

Number  of  atoms  bonded  to  ligand  a*  /scan  /i  •  i  scan  i  inti  nr 

computed  in  NUMBER. 

Bond-type  flag  /hitgon/i* 

=0  ring  doe*  not  have  3 
double  bond*. 

=1  ring  has  3  double  bonds. 

Column  coordinate  of  IX  where  data  /UNO  /l* 

of  next  ligand  In  group  KC  are  to  be 
*tor#d . 

Value  of  j  Index  In  where  /scan  /t» 

the  ligand  data  are  stored. 


Value  of  j  Index  In  I  X<  I ,  j.  It  )  where  /stand  /<*  >  stand  w  inti  na 

the  ligand  data  are  stored. 


( 1 ) 

Contains  number  that  denote*  th# 

mo 

/< 

5042  > 

setup 

n 

INTI 

WAP 

<  100> 

Identity  type  of  th#  cor#  ligand 
ebon  group  number  equal*  I. 

Subscript  1  of  array  MNC<l,j)  equal 
to  th#  number  of  branch  atoms  In  th* 

/nn 

/i 

5> 

STAND 

n 

INTI 

WA* 

molecule. 

( 1 » 

Contains  orolnal  numbers  of 
previously  Identified  Identical 
ligands  of  cor*  atom  KC. 

mm 

n 

A2M> 

SA«E 

n 

INTI 

*A5T 

<  4  ) 

( 1  > 

Contains  ordinal  Identification 

mm 

t i 

N20O) 

EQUAL 

i 

INTI 

WA$I 

i  n } 

numbers  for  ligand*  of  stom  In  set  R 

SETUP 

ft 

INTI 

WAS  1 

14) 

I  HIIGON  M  INTI  nros 

i  UNO  o  inti  na 

I  SCAN  n  INTI  na 


*****  <l>  Contain*  ordinal  Identification  /ai.«*  /i  atevi  ioual  i  inti  nasi  isi 

number*  for  ligand*  of  atom  In  set  B  SiTur  n  inti  nasi  lai 


IT  ara  rj  a.oi-it 


191 


T0AIAA9I  m*TN 

SYMBOL  SVRSOL 


DESCRIPTION 


_ VL<L»»y_„  . 

biucx  foe  S 


... 

fun*  U  1YA6  YAA DTA 


Contain*  chemical  symbols  subscript 
coda*  tor  cl*  ligand  pair*.  Ligand* 
1=1  and  1=3  ara  cl*  to  each  other  a* 
mall  a*  ligand*  1=2  and  t=*t. 

Loop  counter  and  subscript. 


/UO  /<  *60!  >  CIS  o  inti  ns  (N> 

cocoa  i  inti  ns  i * ) 

f iraoT  I  into  ns  <  a  i 


)  loin?  w  IMS  ns 


Subscr Ipt  of  arr  ay  IB. 


/scan  /( • 


i  scan  u  inte  ns 


Value  of  MO  at  *tart  of  cycle. 


/HEXGON/1  » 


i  Hiseon  w  inte  nrena 


Identifies  a  designated  multi¬ 
character  multl-»ord  Input  tynbol 
■  Ith  the  corresponding  single  9'r d 
Hollerith  program  library  symbol. 
Factor  that  determine*  the  loner 
ilnlt  of  a  particular  loop  counter. 

Factor  that  determiner  the  loner 
limit  of  a  particular  loop  counter. 

Factor  that  determines  the  loner 
limit  of  a  particular  loop  counter. 

Factor  that  determine*  the  loner 
limit  of  a  particular  loop  counter. 

Bing  location  of  bonds  or  group 
number*  of  carbon  atom*  on  either 
side  of  nitrogen  atom  In  unsat u rated 
n  I  tr ogen  -  c o n t a  I n I ng  rings. 

Additional  Identification  number 
added  to  original  uelght  of  an 
element  or  radical  mhen  present  as 
the  core  atom  of  the  group. 

Subscript  of  array  NBC. 


/nuin  /<  * 


/EQUAL  /<  • 


/setup  /( • 


/EQUAL  /(• 


/SETue  /I  • 


)  'DENT  S 
nULfl  E 


>  EQUAL  I  I N7C  nULTI 


)  SETUA  I  INTC  HULTI 


in? E  muLTt 


>  SETUP  I  INTE  HUtTt 


/61.X  I  /I  376*1  CYCORA  7*  INTC  nVU 


10  1  STAND  I  INTE  nwGT  (SI 
TGAP  D  INTE  nwGT  1*1 


I  CHANGE  W  INTC  m 


Subscript  that  selects  data  of  IDXR  /euuala/i« 
to  be  tested,  also  subscript  of  CICV. 

Subscript.  Also  group  number  of  /Eitaot/c» 

atom  adjacent  to  atom  KC1. 

Subscript  of  arrays  NBC  and  JRING,  /aeseta/i* 


)  equal  a  u  intc  ni 


l  l x trot  w  inte  ni 


l  AESETh  u  INTE  nx 


Subscr Ipt. 


/STAND  /<  • 


I  STAND  U  INTE  mi 


Initial  value  of  subscript  M2. 


/Sunxm/i*  >  SumATn  u  INTE  nx 


Subscr Ipt. 


/SvnANG/l  •  )  SvmANQ  M  INTE  ni 


I!  AAA  n  X. 01-J6 


FOATAAN 

HATH 

DESCRIPTION 

STORAGE 

SUBROUTINE  USAGE 

SYMBOL 

SVMOl 

BLOCK  L 

OC  Subs  u  Iype  vaa  dim 

nil 

Subscript  of  I OX  governing  the 
storege  of  the  ligand  data  for  Kl. 

/EQIIAI  /!• 

)  EQUAL  M  1NTE  Mil 

nit 

Subscript  of  IDX  governing  the 
storage  of  the  ligand  data  for  K2. 

/EQUAL  /!* 

>  EQUAL  U  INTC  Mil 

nv 

Subscript  and  temporary  storage 
variable. 

/CHANGE/C* 

>  change  u  inte  nv 

nv 

Subscript  of  array  NBC. 

/RESETS/!  • 

>  RESETR  M  INTE  MV 

nv 

Nunber  of  particular  element 
contained  In  species  M. 

/sunATn/i* 

>  SURATN  W  INTE  MV 

nz 

Subscript. 

/RESETS/!  • 

)  RESETR  u  INTE  MZ 

ni 

Location  in  NUHFRQ  containing  data 
for  species  M. 

/sunATn/!  • 

>  SUNATN  U  INTE  NZ 

ni 

Indicates  mhether  or  not  ligand  1 
has  already  been  found  equal  to 

/SAME  /(  • 

)  SANE  W  INTE  M 

another  1 1 gand. 

ni 

Subscript. 

/SYnRNG/i  • 

I  SYNRNG  U  INTE  M 

nt 

Indicates  ohether  or  not  ligand  2 
has  already  been  found  equal  to 

/SAME  /!• 

>  SANE  W  INTE  NZ 

another  ligand. 

nt 

Subscr 1 pt. 

/SYNRNG/!  • 

>  SYNRNG  M  INTE  H2 

Location  mhere  data  are  stored  In 
arrays  MS  and  PIKT. 

/CSS  /!• 

>  CIS  M  INTE  N 

Loop  counter  and  subscript. 

/CTMO  /!• 

>  CTWO  W  INTE  N 

Loop  counter  and  subscript. 

/CVCORR/I • 

>  CVCORR  U  INTE  N 

Loop  counter  and  subscript. 

/EQUAL  /!• 

)  EQUAL  N  INTE  N 

Loop  counter. 

/LESSEN/!* 

>  LESSEN  0  INTE  N 

Loop  counter  and  subscript. 

/NULTI  /!* 

>  NULTI  W  INTE  N 

Loop  counter  and  subscript. 

t 

/MINT!/!* 

>  PRINT!  W  INTE  N 

Loop  counter  and  subscript. 

/RESETS/!  • 

>  RESETS  W  INTE  N 

Loop  counter  and  subscript. 

/SCAN  /(• 

>  SCAN  W  INTE  N 

If  AM  T)  0.01-}* 
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FORTRAN  HATH 

SVflSOL  SVISiOl 


DESCRIPTION 


__JU25S£1__  _._5i2£fSiHiU 
sTocT  Cot  subM  u  n 


Loop  counter  and  subscript. 


/SETUF  /(«  )  SITUS  M  INTI  N 


Loop  counter  and  subscript. 


/STAND  /(•  >  STAND  W  INTI  N 


Loop  counter  and  subscript. 


/SVISRNG/ls  I  SvnRN*  W  INTI  N 


<  l/J> 


Number  of  groups  for  mhlch  there  are 
no  themocheml c a  I  group  adoltlvlty 
values  end  ahlch  have  been  assigned 
the  thermoehem I c a  I  properties  of 
another  similar  group. 

Number  of  atomic  constituents  that 
form  the  backbone  of  the  ring. 

Number  of  atomic  constituents  that 
form  the  backbone  of  the  ring. 

Number  of  asymmetric  carbon  atoms  In 
molecule. 

Number  of  asymmetric  carbon  atoms  In 
molecule. 

Number  of  asymmetrle  atoms  In 
molecule. 

Number  of  asymmetric  carbon  atoms  In 
molecule. 

Number  of  asymmetric  atoms  In 
mo i ecu  I e . 

Contains  group  number  of  atom  1  In 
ch -  I n  j  . 


mao  /«•  I  TGAF  C  INTI  NFL 


/CHAIN'S/!  •  >  CHAINS  M  INTI  NALT 


/RING  /(  •  >  RING  W  INTI  NRLT 


/asvisc  /<•  i  RSvnc  n  inti  nasvhc 


/C0RCIC/(»  >  CORCIG  1  INTI  NRSVNC 


/INTSVm/l •  >  INTSVN  I  INTI  NRSVHC 


/EXTROT/I •  >  EXTROT  I  INIE  NRSVHC 


/IAAXCHN/'»  »  fIRXCHN  I  INTE  NRSVnC 


/OLKA  /(  l>  CHAINIS  n  INTE  NBC  (40,*0> 

CHANGE  H  INTE  NBC  (40,101 

HAxCMN  I  INTE  NBC  (40, SOS 

NEUCOL  IS  INTE  NSC  (40,S0> 

RESETS  n  INTE  NBC  (  40, 50» 

SING  I  INTE  NSC  (40, SOt 

SVMTBV  I  INTE  NBC  (  40, SB  > 


Total  number  of  bentene  type  rings 
present  In  molecule. 


/BIKS  /(  S4I0)  CORCIG  m  INTE  NRENZ 
CVCORR  IS  INTE  NBENZ 
HEIGON  I  INTE  NBENI 
SVrtRNG  I  INTE  NBENI 


Number  of  branch  points  (  atoms!  In  /chainn/i*  >  chains  m  inte  nbf 

mo  I  ecu  I e . 

Number  of  brench  points  (etoms)  In  /neucoi/i*  >  neucol  is  inte  nbf 

molecule. 

Number  of  brench  etoms  In  cheln  I.XX.  /RESETB/i*  >  besets  w  inti  nbf 


/NEWCOL/I  •  >  NEUCOL  IS  INTE  NBF 


Number  of  brench  atoms  In  ring. 


/RESETB/1 •  t  besets  H  INTI  NIFA 


IF  AFR  rj  0.01-14 
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foataan  main 
SYMBOL  SYMBOL. 


DESCRIPTION 


StQaar, 

"TTSci 


DU: 


NS 

NOS 

NC 


ncr 

NOAIM 


<  l,J> 

<  l/J> 

(  I  ) 


Data  pertaining  to  chain  I 

j=l  number  of  atoaii  In  chain. 

J~2  numbar  of  branch  atoiai  In 
chain. 


Location  j  In  chain  I  (stored  In 
arrayNBC >  that  contalna  a  branch 
atom. 


First  section  of  the  program:  numbar 
of  Input  core  atoms  bonded  to  core 
atom  I  excluding  that  of  the  parent 
core  atom.  At  end  of  first  section: 
total  number  of  Input  core  atoms 
bonoed  to  core  atom  I. 


Upper  limit  of  loop  counter. 

Number  of  elements  used  In  the 
formation  of  the  chemical  groups. 


UKA  /(  1001)  CMAINM  0  INK  NBS  «tO,*l 
CHANGE  M  INK  NBS  It0.il 
MAXCHN  I  INK  NBS  I  tO,*  I 
Nfc UCQL  I  INK  NOS  I  tO,  1 1 
At  St  TA  n  INK  NBS  ItO.tl 
A  INS  1  INK  NBS  ItO, I) 
SYATAY  I  INK  MBS  ItO.tl 


/BLAB  /(  mi)  CMAINM  0  INK  NAI  ItO, 101 
CHANGE  M  INK  N8I  ItO,  *01 
NEWCOL  M  INTE  NBS  ItO, 10  I 
AESETA  A  INK  NOS  ItO, 201 


/BIX*  n  Jilt)  CMAINM  I  INTE  NC  1100) 
CIS  I  INTE  NC  I  100) 

CISCOA  I  INTE  NC  I  100  T 

coacic  I  INTE  NC  I  100) 

CTUO  I  INTE  NC  I  100 ) 

CYCORA  I  INTE  MC  I  100  > 

EQUALA  I  INTE  DC  I  100  I 

EXTNOT  I  INTE  NC  I  100) 

GAUCHE  I  INTE  NC  I  100 T 

LINEAA  I  INTE  NC  I  100  I 

NEUKC  I  INTE  NC  I  ISO) 

AESETA  I  INTE  NC  I  1001 

SCAN  H  INTE  NC  I  100  > 

SCANBA  I  INTE  NC  I  100  > 

SCANCH  I  INTE  NC  I  100  I 

SOANGI  I  INTE  NC  I  100  I 

STAND  n  INTE  NC  t 100 1 
SYMHNG  I  INTE  NC  I  100  I 

SYPUAY  I  INTE  NC  I  100  T 


/EStr-OT/l*  S  EXTAOT  W  INTE  NCE 


/ELKS  /I  I)  PAINT1  I  INTE  NOATM 
SCANBA  I  INTE  NOATM 
SCANCH  I  INTE  NOATM 
SETUP  I  INTE  NOATM 
SYNTAX  I  INTE  NOATM 
TGAP  0  INTE  MOATA 


NOK  Total  number  of  rings  which  are  part  /fusion/i»  >  fusion  w  ink  noif 

of  tha  fused  ring  sets. 

noome  (  |  )  Designates  that  the  ligand  cora  atom  /blki  /<  j»za>  equal  n  inte  noone  c  ioo  > 

1  has  been  processed  sihen  1=1. 

Otherwise,  1=0. 

caEMAM  Input  value  for  total  number  of  fcoacig/(»  »  coacig  i  inte  nenan 

ensntlomerlc  eonf I guret I ona  of 
mo  I  ecu  I  a  (opt) ona I  ). 

NCOi«ai  Input  valut  for  total  number  of  /CNTSvn/i»  >  intsvm  i  ink  nenan 

enantiomeric  e onf I gur at  I  one  of 
moltcuio  ( optional  ). 

Input  vo I uo  for  totel  number  of  /roan  /«*  t  toap  w  ink  nenan 

enantiomeric  eonf Iguret lone  of 
maloeulo  < optional  ). 


ir  aea  n  a.oi-st 
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FORTRAN  NRTM 

svnm  SVMOl 


DESCRIPTION  -.Tot  ;l5R*Cft0t  USfp  i”  HfiKPSw 


NENANC 

Computed  value  for  the  total  number 
of  enantlo*> >'"■». 

/intsvia/i  • 

)  ENTSVN  W  INIE  NENANC 

NENE 

Numbt r  of  3-ene  structures 
associated  with  pair  of  central  eore 
atoms . 

'CISCOR/I  • 

)  CISCUA  U  INTE  NEVE 

NEUCOL 

Defines  the  Initial  constituents  o 
a  nea  chain.  The  group  numbers  of 
the  previous  chain  common  tu  the  no* 
chain  are  stored  In  a  now  ros  of 
array  NBC.  The  related  array  branch 
data  for  the  nea  chain  arc  stored  In 
the  NBX  array. 

/NEUCOL/*  S 

>  CHAINS  5 
NEUCOL  E 

NEUCOL 

NEUCOL 

NEURC 

Finds  the  nest  chain  atom  when  the 
last  Identified  atom  KC  of  the  chain 
Is  a  branch  atom.  The  n«s  chain 
atom  Is  set  equal  to  one  of  the 
unused  core  atom  ligands  of  KC  and 

Is  stored  In  KC.  If  all  these 
ligands  have  already  been 
incorporated  In  some  chain  link,  the 
program  exits  from  the  subroutine 
unless  the  required  storage  order  Is 
not  present. 

/NEURC  /(  » 

)  CHA1NIA  S 
NEUCOL  S 

NEURC  E 

NEURC 

NEURC 

NEURC 

NF 

Upper  limit  of  loop  counter  N. 

/LESSEN/*  • 

1  LESSEN  U  INTE 

NF 

NF 

Upper  limit  of  loop  counter. 

/PAINTI/O 

>  PRINT)  U  INTE 

NF 

NF 

Upper  limit  of  loop  counter. 

/SvnRNG/t» 

>  SvnANG  U  INTE 

NF 

Nl 

Loser  limit  of  loop  counter. 

/EQUAL  /(• 

I  EQUAL  U  INTE 

Nl 

Nl 

Loser  limit  of  loop  counter. 

/SETUF  /<• 

)  SETUP  U  INTE 

Nl 

NJ 

Bond  direction  frem  ligand  to  first 
atom  bonded  to  ligand  which  Is  not 

KT 

/SCAN  /<» 

I  SCAN  1  INTE 

NJ 

NNU 

3_. id  direction  frem  core  atom  to 

1 Igand, 

/SCAN  /(» 

)  SCAN  U  INTE 

Nnu 

NN 

Loop  counter  and  subscript. 

/EQUAL  /(• 

)  EQUAL  U  INTE 

NN 

NN 

Sattlngs  for  array  MARO.  I=benian«> 
t/pa  ring,  2=p yr 1 d 1 ne - ty pa  ring, 

0=ne 1 ther . 

/HEX SON/*  « 

I  Ml  AGON  U  INTI 

NN 

NN 

Subscript  of  array  JORD. 

/LESSEN,*  • 

1  LESSEN  U  INTI 

NN 

IF  AM  ?J  8.01'Jl 
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r»  ?7?5*w  TWBgnfr^OE^ 


FONTNAN  NATH 

SVMOt  SYMtOL 


DESCRIPTION 


#10. i Co 


rfW f-WW 


V*lu*  of  j  subscript  In  IX(l,j,fc> 
whtrs  data  rjqulrad  for  scan 
operation  art  locatad. 

Numbsr  of  pyr I d i na - ty pt  ring 
structures . 


/ST  AND  /«•  I  STANO  W  INTE  NN 


/<  JAM  )  COACie  A  INTF  NNBENI 
CVCOAA  n  inte  NNBENI 
MEIBOM  I  INTE  NNBENI 


Nunbar  of  cards  usad  to  Input 
structura  of  molecule. 


I I  ASSIGN  I  INTE  MO 
lOENT  I  INTE  NO 
STANO  I  INI  NO 
T6AP  N  INTE  NO 


Nunbar  of  branch  cora  atoms  prasant  /Bin  /<  Aeon  chain*  i  inte  noib 
In  molteula.  ST*M0  0  Np»" 


NOSAO  (  |  ) 


Countar  that  danotes  which  llgsr.d  of  /»lxi  /(  1  703  )  chain*  o  inte  NOtnodOOi 

K°1P  "u"htr  1  KE^SKSBSKJli:! 

to  Dt  •data  To  tno  cntin. 


Denotes  whether  the  carbon  aton  Is  /gmjChe/i» 
the  first  or  second  central  aton  of 
the  gauche  Interaction  structure. 

Number  of  entries  In  array  KC«DQ1.  /equal  /<* 


1  GAUCHE  M  INTE  NOCAN 


>  EQUAL  I  INTE  NOOOI 


Number  of  entries  In  array  KCXDOl. 


/SEfUC  /(•  )  SETUA  I  INTE  NODOI 


Nu»b«r  of  entries  In  array  KCX002. 


/EQUAL  /(»  )  EQUAL  I  INTE  NOOOt 


Number  of  entries  In  array  KCXC02.  /setup  /(»  >  setup  I  inte  noooz 


(I,j)  «u 1 1 1 - s tor aga  array 

1=1  nunbar  of  ring  pairs  In 
fused  ring  set  j. 

1=2  total  number  of  atom 

common  to  any  ring  pair  In 
sat . 

1=3  total  number  of  atom 

common  to  all  ring  pairs 
In  sat . 

■>3  group  number  of  atoms 

eoMprlsIng  the  total  In 
1=3. 

I  I  )  Contents  of  array . 

1-1  number  of  fused  ring 
systems  In  molteula  . 

I>1  number  of  rings  In  fused 
ring  system  1*1. 


/SLK3  /<  3901)  CAINGS  I  INTE  NOS  1(0,101 
FIASTN  I  INTE  NOS  ( 10,101 
FUSION  0  INTE  NOS  (  10,101 
HE»r,OH  I  INTE  NOS  (  10,  101 

NAINGS  I  INTE  NOS  I  10,10) 


/BLXS  /<  43S0I  C0ACI8  N  INTE  NOSOPIBI  1 1 

CAINGS  I  INTE  NOXOnBI II 

FIASTN  |  INTI  NOSOPIBI  I  I 

fusion  n  inte  Nosonsi  n 

HE  ICON  I  INTE  Nosonsi  II 

NAINGS  I  INIf  NOAOnSt  II 


ir  apa  n  a. 01-3* 
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FOBTRAN 

SVMOl 


NA7N 

Srn»OL 


DESCRIPTION 


siorrre 
-iibtf  tiT  Jui'R 


suwwouf tN|  USRGt 


•wnnw 


NOISE  SO 

wont  SO 

wont SO 

NONMO  (  |  ) 

nonfus 

NONIT 

NOFTS 

«Ot  T  SC 

wos 

woswwt  (  I  ,  j  ] 


WOS  1 1 


NOSH 


Function  typo 

=0  no  asymmetr I e  ate*  or  «tto 
structures  pr«»«nt. 

=1  asymmetric  atom  prasant. 

-2  meso  structures  present. 

Function  typo 

=  0  no  asymmetric  otoo  or  »na 
structures  prosont. 

- 1  asymmetric  n tea  prosont. 

-2  its  jo  structures  prosont. 

Are  being  compered.  Are 
being  compared. 

Funet I  on  typo . 

=0  no  asymmetric  atom  or  atio 
structures  present. 

=1  asymmetric  atom  present. 

-2  me  so  structures  present. 

Array  In  which  non • ar omat ! c  ring 
units  (  I  )  are  set  equal  to  I  and 
aromatic  units  (I)  are  set  equal  to 
0. 

Total  number  of  rings  In  molecule 
mhlch  are  not  part  of  any  fused  rlnq 
set. 


/corcio/i*  i  coacis  >  ink  wontso 


/ewTSvn/f*  )  iWTSrn  i  iwtc  woncso 


/£  X  TROT/T •  I  EXTROT  0  INTE  WOHESO 


/SLR  3  /(  3602  )  CORCIG  0  IWTE  NONRROI SO  * 

HEXGON  0  INTE  NONRROI SO > 
SORNGI  I  IWTE  NONRROI SO  * 


/OIKS  /I  S322)  FUSION  n  INTE  NONFUS 


Denotes  whether  the  nitrogen  atom  Is  zgrucme/i*  >  gruche  w  inte  nonit 
the  first  or  second  central  atom  of 
the  gauche  Interaction  structure. 

Total  number  of  er  ant  I  oner  1  c  and  /entsyu/i*  >  ENTSvn  u  inte  norts 

ne jo  farms  computed  from  Input  data. 


Computed  value  for  the  total  numbar 
of  enantiomers  and  meso  structure! 
present. 

Number  of  elements  plus  radicals 
used  In  the  formation  of  the 
chemical  groups, 
du  1 1 1  -  v ar  I  ab I e  array 

1=1  number  of  entries  In  array 
KC5AF1E  for  core  atom  j. 

1=2  number  of  different  types 
pf  Identical  ligands  In 
sot . 

I>2  number  of  etch  type. 

Total  number  of  t ! x -membered  rings 
containing  it  Ivyst  tmo  double 
bonds. 


/ENTSvn/l  •  )  ENTS/n  M  INTE  nortsc 


/BLR  1  /I  2  )  IOENT  I  INTE  NOS 
TGRF  O  INTE  NOS 


/r,lRI  /(  267S  )  E  I  TROT  I  INTE  NOSRMEI  t,  1 00  > 
Sans  n  inte  NOSRoei  a, 100 » 
5ETUF  0  INTE  NOSRREI a, I  00 ) 
SVHRMG  I  INTE  NOSRfSEI  1,100* 


/BLR1  /I  SUIT  CGRCIS  0  INIE  NOSH 

CVCORR  IS  |NT(  NOSII 

HEXGON  I  INTE  NOSH 


Input  valu#  fot  n>i  ..a!  symnatry  /CORClO/c*  )  corcig  I  inte  wosw 

numbar  of  mnlaeule  (optional). 


1 1  RRR  T J  4.01-16 
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7^-V-  ./WWTfDyUl”;  Tt^T!*’***' 


iwffw^Ty^i 


FOMJU#  MAIM 

$VW«CL  &V*«OL 


DESCRIPTION 


_.  ilgjUfil— _ . 
Tiiock  Tee 


_ sw.ouune 

TOon  u  Tve* 


NOSH 

NOSN 

NOSNC 

msne 

NOSNC 

NOSNC 

NOVAt  (  f  ) 

NOW 


Input  valua  for  astarnal  ayaaet ry 
nuabtr  of  aolecula  (optional). 

Input  value  for  asternal  symmetry 
nuabtr  of  molecule  (optional). 

Computed  value  for  tbo  external 
rotation  symmetry  nuabor. 

Coaputad  valua  for  tbo  asternal 
rotation  ayaaatry  nuabor. 

Coaputad  valua  for  tba  asternal 
rotation  ayaaatry  nuabor. 

Coaputad  valua  for  tba  aatarnai 
rotation  ayaaatry  nuabor. 


/ENfSvm/i  * 

1  (Nisvn  1 

INTE 

NOSN 

/TGAR  /«• 

»  TGAf  W 

INTE 

NOSN 

/coacis/t • 

>  coacia  i 

INTE 

NOSNC 

/iNTSvn/o 

>  ENtsvn  1 

IN/E 

NOSNC 

)  EITAOT  n 

INTE 

NOSNC 

/SVIAANG/I  • 

1  SYHAN8  0 

INTE 

NOSNC 

Chaalcal  valanea  of  aacb  element  and  /Otsi  /(  in  stand  i  inte  noval  <»» 
radical.  In  the  group  additivity  TG*f’  0  ,NTt  N0V*L  *  *  * 

tabloa  nltrogan  alaaya  bat  a  valance 
of  thraa. 

Nuabtr  of  CO  groupa  found  In  ring  K.  /oaveiv/o  »  oitata  v  inte  now 


NO 1  ACT 

(  1  ) 

Temporary  storage  for  original 

NOSAP1E  data  computed  for  RC1. 

/tlKI  /(  38S1I 

ESTAOT 

IS  INTE 

NOIALTI  a  I 

noealt 

(  1  ) 

Temporary  storage  for  original 

M0SAP1E  data  computed  for  KC2. 

/GUI  /(  JVOJ) 

ESTROT 

n  INTE 

NOEAITC 1 » 

NRSUOA 

Pseuooasymmatr 1 e  atom  flag 

=0  p seudoa ay maetr 1 c  atoa  not 

pr aaent. 

=  1  p a tud o a s y mme t r  1  c  atoa 

present. 

/COACIG/<»  1 

CORCIG 

1  INTE 

NR5UOR 

NfSUOA 

Pseudoasymmctr 1 c  atoa  flag 

=0  p seudoeay mme tr  1  c  atoa  not 

pr aaent . 

=1  p seudoeaymmetr 1 e  atoa 

preaent. 

/ENTSvn/l*  ) 

ENTSVN 

1  INTE 

NASUOA 

NfSUOA 

Paeudoaaymmetr 1 c  atoa  flag. 

-0  p aeudosayametr  1  e  atoa  not 

preaent . 

=1  p acudo aayaae tr 1 e  atoa 

preaent. 

/ESTROT/I •  > 

E  S  TROY 

0  INTE 

NRSUOR 

NAlNt 

(  1  ) 

Identifies  nltrogan  containing 
rlnga.  Loe*'lun  1  la  aet  to  1  If 
ring  1  contalna  nitrogen  end  to  0  If 

1 t  doea  not. 

/ILK  1  /I  mi> 

CORCIG 

CVCORR 

HEIGON 

0  INTE 
0  INTE 

1  INTE 

NR  1  NO  isai 
NRING  I  SO  1 
WRING  (NOT 

NtlNSS 

Seer  the  .>  for  •  particular  fuatd 
nitrogen-corttalnlng-rlng  molecule 
and  appllea  ring  r-rreetlon  If 

/NR  1  NOS/I »  1 

COACH 
NR  1  NOS 

S 

( 

NR  1  NOS 
NRINGS 

pmaant. 


ir  am  rs  a.oi-is 


199 


«\  ni1 .» t •!»,iij.v  V{,’*"5',’> T''' 


EOATAAN 

symaot 


HATH 


(  I,  j) 


it  «•  n  i.oi-ia 


tpt  •  ''Piyg’  y*  ,‘*vrT3P|lT^-'yT?7w»-y*?|tm*7 


TVTMrrr'”V'  Tj^g^iiiy  s.a,)[i 


DESCRIPTION 


W**h 


s*w 


Th*  number  of  tht  chain  that 
contains  ring  i  la  stored  In 
location  I . 


/sl«3  /*  3S03 1  lessen  n  i mi  nrloc  isoi 

Of  SET*  I  |NT(  NRLOC  I  10  » 
KINS  n  INK  NRLOC  I  SOI 


Bond  direction  of  aneond  character. 


/ I  PENT  /I*  )  IDENT  U  INK  N* 


Total  nuaber  of  bentene-  and 
pyr I d I n* -type  rings. 


/am  /<  imi  corcib  o  inte  niieni 

CTUO  I  INTff  NTSCN2 

MEJGON  N  INTE  NTSEN? 


Title  printout  flag 

=0  title  of  Interaction  t sta 

not  yet  output. 

=1  title  has  been  output. 

T  I  ♦  I  e  pr I ntout  f I ag 

=0  title  of  Interaction  data 

not  yet  output. 

=1  title  has  been  output. 
Number  of  Identical  stoma  I  of  a 
particular  type  that  ore  associated 
■  I  th  core  atoa  j . 


/CORCIG/I  • 


>  CORCIB  U  INTE  NTITLf 


/PRINT?/!  • 


>  PRINT?  0  INTE  NTITLE 


/am  /(  39T8)  EXTROf  19  INTE  NTOTRLI  3, 1 00 » 

I  l/TROT  I  INTE  NTOTRLI  3,  ISO) 

LINEAR  I  INTE  NTOTAU  3.100) 

'.ARE  n  INTE  NTOTALI  3,  100  ) 

SETUP  0  INTE  NTOTALI  3,100) 

SVilRNG  IS  INTE  NTOTALI  3,  ISO) 

SYOIRV  0  INTE  NTOTALI  3,100) 


NT  1  ALT 

<  i  > 

Temporary  storage  for  original 

NTOTAL  data  computed  for  KC1 

/RLE  1 

/< 

NT  IS 

( i  > 

Samo  as  data  In  array  NT1ALT  except 
that  here  the  contribution  fro*  atom 
KC2  Is  deleted  If  present. 

/8LM 

/< 

nt?alt 

1 1  > 

Temporary  storage  for  original 

NTOTAL  data  computed  for  KC2. 

/  RLE  I 

n 

NT2S 

( i  > 

Same  as  data  In  array  NT2ALT  except 
that  here  the  contribution  from  atom 

/SLR  1 

t\ 

NOA 

Bond  direction 

1  =  north 

2  =  northeast 

3  =  east 

*1  -  southeast 

5  -  south 

6  =  southeast 

T  -  mast 

8  =  northmeat 

/ASSIGN/! • 

NUA 

Number  of  ring  components. 

/CYCOAA/I  • 

/I  3SII)  E I T  ROT  n  INTf  NT1ALTI3/ 


/I  39 1  T  )  E I  TROT  n  INTE  NTH  13) 


/I  3919)  E I  TROT  A  INTE  NTIALTI3) 


/I  39?0 )  E  X  TROT  19  INTE  NTH  13) 


)  ASSIGN  !  INTE  NUN 


)  CYCOAA  M  INTE  NUN 
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FOATAAN 

svnaoc 


WITH 

.VASOt 


DESCRIPTION 


Entry  value:  number  used  to  conputa 
Initial  bond  scan  direction.  Eslt 
value:  bond  direction  from  Indexed 
atom  to  ligand  core  atom. 

/fino  /(• 

1  FIND 

H  MW  NUN 

NUN 

Number  of  atoms  mhlcfi  ring  pair  KSUfi 
has  In  common. 

'FUSION/I * 

>  FUSION  N  INK  NUN 

NUN 

Bond  direction  from  parent  atom  to 
Indexed  atom.  Set  to  -3  Initially 
prior  to  tha  Identification  of  tha 
first  symbol  of  tha  molecule. 

/IDENT  /(• 

I  IDENT 

N  INTE  NUN 

mm 

Bond  direction. 

Entry  value:  froa  parent  core 
atom  to  Indexed  core  etost. 
Computed  value:  from  Indexed 
core  atom  to  parent  core  atom. 

/Numeca/4* 

1  NUNSEA 

N  NTE  NUN 

Him 

Bond  direction  from  parent  atom  to 
core  atom. 

/scam  /<v 

»  SCAN 

I  INTE  NUN 

NUN 

Initial  setting  for  the  bond 
direction  vsr  1  eb  I  a  . 

/STAND  /«» 

)  STAND 

U  INTE  NUN 

NUN 

Number  cf  sets  of  Identical  ligands 
on  the  ring. 

/SVWRNO/I  • 

>  SVMRNG 

U  INTE  NUN 

NUNATN 

( 1 ) 

Contains  elemental  composition  of 
molecule. 

/SLK5  /« 

2>  IDENT 
RRINTI 
SCAN 
SCAIIAA 
SCANCM 

stand 

1  INTE  NUNATNI S  I 

1  INTE  nunatni  5  } 

1  INTE  NunATniS) 

1  INTE  NUrtATni  S  > 
l  inte  Nunaim  s  i 

0  INTE  NUNATNI  S  1 

NUN ATM 

<  1 > 

Contains  elemental  composition  of 
molecule  or  1 1 gand . 

/Sunain/i  • 

)  sunatn 

N  INTE  NUNATNI  f  > 

This  subroutine  determines  the 
number  of  ligands  (PIP)  attached  to 
core  atom  t  or  the  number  of  ligands 

1  of  any  core  atom  ahose  group 
number  exceed*  1. 

/NunBEA/<  a 

1  FINO 
NUNSEA 
SCAN 

S  NUNSEA 

E  NUNSEA 

S  NUNSEA 

NUMC 

Number  of  cirbor  atoms  In  ring 
backbone. 

/sin J  /«  »ft* >  cvcoaa 

N  INTF  NUNC 

NUNC* 

Number  of  CO  stoma  In  ring  backbone. 

/sees  /«  jrm  cvcoaa 

N  INTI  NUNCC 

NU«f 

( 1  > 

Contains  the  subscript  of  array 

SVP1B0L  that  Identifies  each  slement 

/lies  /( 

1 >  SUNATN 
TGAP 

1  INTE  NUNFSOl  JA> 
0  INTE  NUNFROI  1ST 

In  a  radical  end  the  (lumber  of  each 
element  contained  therein.  Sli 
locations  per  radical.  Odd 
locations  contain  subscript,  t«an 
locations  tha  number. 

nunn  Number  of  nitrogen  atoms  In  ring  /lies  /i  situ  cvcom  n  ink  Nunn 

backbone. 


if  am  m  a.oi-H 
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f  OATAAN 
SVMBOL 


NATH 

SVNHOL 


DESCRIPTION 


Tl  oc«  toe  Suba uTiff  vaa  oIW 


NUNO 

Number  of  oxygen  atoms  In  ring 
backbone , 

/aixs  /< 

inn  cvcoaa  n  inti  nuno 

NV 

(  1  > 

Number  of  cort  atoms  bonded  to  atom 

/BLKI  /( 

IVtS  1  EQUAL  1  INTE  NV 

1.  If  1  la  a  ring  atom,  value  la 
rcaat  In  subroutine  EQUALR  to  tho 
number  of  non-ring  cort  atoaif  bonded 
to  1  plus  ona. 

EQUAL*  M  INTE  MV 
SVMTAY  0  INTE  MV 

ftVft 

(  1  ) 

Nu*btr  of  ring  atoni  bonriad  to  ring 
atom  1 . 

/BUC*  n 

Mil  1  EC  UAL  A  n  INIf  Nva 

DM 

<  1  ) 

Number  of  actual  cort  atoaa  bondtd 

/aus  /( 

SZOI  1  01 TEAE  1  INTI  MU 

to  cort  atoi*  1,  thl*  Ineludtt  tha 
oxygen  atot*  of  tha  CO  radieal. 

GAUCHE  1  INTI  NW 
STAND  H  INTE  NW 

MI 

Redefinition  value  for  bond 
direction  If  limit  la  exceeded. 

/CIS  /<  • 

1  CIS  W  INTE  NX 

HI 

Flag  that  controls  the  transfer  to 
tha  various  r 1 ng  correction  sections 
In  subroutine  CYCORR. 

/cvcoaa/< . 

)  CYCORR  y  INTE  MI 

MI 

Sun  of  asymmetric  and 
pseudoasymmetr  1  c  atoms. 

/ENisvn/i • 

1  ENTSVH  W  INTE  NX 

MI 

Transfer  flag  to  computation  areas 
for  diverse  structural  types. 

/ETTROT/I  • 

I  EXTAOT  U  INTE  NX 

MI 

Bond  direction  from  indexed  atom  to 
number  1  (core)  ligand. 

/FIND  /(  * 

1  FIND  1  INTE  NX 

MI 

Current  test  bond  direction. 

/  I0EMT  /<  • 

1  1  DENT  W  INTE  NX 

MI 

Bond  direction  from  core  atom. 

/NunoEa/( » 

1  NUnfEA  M  INTE  NX 

Ml 

Bond  direction  from  core  atom  to 
test  location. 

/scam  /<• 

1  SCAN  W  INTE  Ml 

Mil 

Bond  direction  from  Indexed  core 
atom  to  1  1 gand  ona. 

/NUMBER  C • 

1  NUMBER  0  INTE  Nil 

Ml) 

Number  of  entries  In  erray  JSTORE. 

/WRINGS/  • 

>  WRINGS  y  INTE  NX) 

MV 

Value  outside  range  of  bond 
direction. 

/cis  n  • 

)  CIS  W  INTE  NV 

Nt 

Bond  direction  from  number  1  (core) 
ligand  to  Indexed  atom. 

/FIND  /(  * 

1  FIND  W  INTE  N! 

Ml 

Initial  test  bond  direction. 

/I0EMI  /<* 

1  I0INI  W  INTI  N! 

MI 

Bend  direction  from  cere  atom  to 
parent  atom.  Inverse  of  NUN. 

/scam  /<« 

1  SCAN  M  INTE  NI 

IT  ABB  TJ  i.OI-Ji 
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I  toot 
«  toot 
I  toot 


!  1001 


<  toot 
« toot 
I  toot 


FORTH**  FWTN 

SYFl»OL  SVM9L 


DESCRIPTION 


at 

Ring  number. 

/CRtN0S/4 • 

)  CRINGS 

M  1NTE  Ml 

Ml 

location  In  IOX  mhere  group  number 
of  ligand  of  KCIP  1*  stored. 

/EOURL  /«• 

)  EQUAL 

U  9NIE  Nt 

aia 

Direction  of  bond  adjacent  to  bond 
beteeen  atoa*  KIR  and  KCIM. 

/IttURLR/l • 

>  EOURLR 

«  INTE  NIB 

Nil 

Number  of  non-ring  core  atoa*  bonded 
to  an  atom  In  ring  A. 

/EQUALR/I • 

1  * 

U  INTE  All 

NIF 

Upper  Halt  of  loop  counter. 

/EQUAL  /( • 

>  EOURL 

U  INTE  NIF 

DIR 

Number  of  other  ring  atom*  bonded  to 
an  atoa  In  ring  A. 

/EQUALR/I  « 

)  EOURLR 

U  INTE  N!R 

Nt 

Ring  site. 

/CRINGS/I  • 

)  CA 3 NGS 

M  INTE  Nt 

at 

Location  In  IOX  ahere  group  number 
of  ligand  of  KC2P  is  stored. 

/EQUAL  /( • 

>  EQUAL 

U  IMS'S  Nt 

ate 

Number  of  non-ring  core  atoms  bonded 
to  an  atom  In  ring  A. 

/EQUALA/I • 

)  EOURLR 

U  INTE  NIE 

aia 

Number  of  other  ring  stems  bonded  to 
an  atom  In  ring  B . 

/EOuntR/c • 

1  Efl'ULA 

U  INTE  N2R 

as 

Ring  correction  Indicator. 

/CRINGS/I  • 

)  CRINGS 

M  INTE  NS 

on* 

ORDER 

Floating  point  equivalent  of  the 
total  numbar  of  anantlomarlc  and 
maso  structures. 

Stores  In  srrsy  IA  the  order  that 
the  elements  In  array  IB  eould  hava 
if  rearranged  In  numerical  order. 

/ENTSvn/t  » 

/ORDER  /<  * 

I  ENISVH 

I  CORCIC 

EOURLR 

LESSEN 

OROER 

TGRF 

W  REAL  OFT* 

S  ORDER 
$  ORDER 
S  OROER 
E  ORDER 
S  OROER 

orosujs  <  |  ) 

OAOSUN  (  I  ) 

OIVATN 


Contain*  order  alcaiant*  In  array  SUM 
mould  have  if  arranged  In  order  of 
Incraailng  magnitude. 

Contain*  order  elements  In  array  SUM 
uould  have  If  arranged  In  order  of 
Increatlng  magnitude. 

Oateratlne*  the  nuabar  of  CO  atoa*  In 
a  particular  ring  ahlch  are  adjacent 
to  another  specific  atoa  In  tha 
ring. 


/SERRCN/I  • 


/T6RF  /<• 


/o»y*Tn/( t 


>  SEARCH  !  IHTf  OAOSumltQI 


>  T6RF  I  INTE  OROSUmiaOl 


)  CvCOAA  $  OSVATN 

oivarn  i  Oivrim 


IT  »M  T)  S.JT-14 


— !  V""7 
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fORTRAN  hMH 

Svrgol  svnioi 

r«»ut  (  | ,  j  ) 

rtttmc  (|,j) 

PRINTI 

PAINT? 

HOATA 

ROATA 

reset* 


<  l,J> 
<  I ) 


him 

HiNr.o  (|,j) 
ainou  {  |  ) 

AOTIM 

aonm» 

» 


DESCRIPTION 


-—iiaagriL— . 
Sloe*  1.6C 


Sum  u  f»fi  vhI  6TB 


Ordinal  numbtr  I  of  ligand  bondtd  to  /Gl«*  /(  m*  >  eoual  I  inte  pealigi  a,  100 » 

■  toa  I.  SCANSA  0  INTC  PEALIGI  A,  100) 

J  SCANCH  0  INTC  PERL  161  A,  I OQ  > 

SETUP  I  I NTE  PfALIGI  A.IOOT 

SVAANG  0  INTE  PEALIGI  A, 1001 


Group  number  of  first  atoa  In  ligand 
I  that  Is  bonded  to  cora  atoa  j.  If 
atoa  Is  non-eort,  tha  negative  of 
tha  chamlcal  symbol  subscript  of  tho 
atoa  Is  stored  Instead. 


/ties  / 1  33*1)  EQUAL  I  INTC  PCRTICI  A, 100  > 
SCANS*  0  INTC  PEATKCI  N, 100  T 
SCANCH  0  INTC  PERTACl  n,  too  t 
SETUP  I  INTC  PEATXCI  A.IOO) 
SVAANG  I  INTC  PERTACl  N,  100  ) 

svatav  o  intc  peatxci a, 100  > 


Prints  tha  atomic  composition,  tha 
assigned  weights,  the  structure  and 
coordinate  array  IX,  and  (and  If 
rings  are  present)  the  number  of 
consonants  In  each  ring  and  their 
grtup  numbers. 

Prints  tha  title  preceding  the 
printout  of  ring,  second-order 
Interaction,  and  Internal  rotational 
symmetry  contributions. 

Thermodynamic  corrections  for 
certain  fused  carbon-ring  systems. 

Thermodynamic  corrections  for  a 
particular  fused  nitrogen- 
con  t a  I n I ng - r I ng  molecule. 

Sets  the  ring  array  J 8C  and  adds  to 
all  tha  chain  columns  the  residual 
non-branch  ring  atoms.  If  tha  first 
chain  atom  defined  mas  a  non-branch 
ring  atom.  These  residuals  mere  not 
Included  ohen  <he  chains  mere  first 
constructed . 

Determines  If  similar  ring  mas  not 
previously  Identified.  If  not,  the 
group  numbers  of  the  ring 
constituents  are  stored  In  IRIN6. 
Array  equlvalenced  to  the  entire  set 
of  arrays  Al,  A2  etc. 

Contains  variable  that  designates 
the  ring  correction  to  be  applied  to 
ring  I  . 

Total  contribution  to  the  ertropy 
due  to  Internal  rotational  symmetry. 

Total  contribution  to  the  entropy 
due  to  Internal  rotational  symmetry. 

Entropy  of  molecule  for  298*K. 

teal -deg’, -mo  t •  “ *  1 


/PAINT!/) » 

)  CORCIG  S 

PRINTI 

HEIGON  s 

PRINTI 

PRINTI  { 

PRINTI 

TGAP  S 

PRINTI 

/PPINT?/I  * 

)  CORCIG  $ 

PRINT? 

PRINT?  E 

PRINT? 

/CA  1 NG5/I  • 

>  CAINGS  1  REAL 

AORTA  1 *, T  ) 

/NRINGS/I • 

)  NA1NGS  1  REAL 

BOAT  A  1  *  ) 

/ AESC  T A/I t 

)  CHAIN!*  S 

RESET* 

RESETR  E 

RESET* 

/RING  /It 

>  CNRINN  S 

RING 

RING  E 

GINS 

/COACIB/I • 

)  CORCIG  1  REAL 

R 1 NGO  l*,SO) 

/Bl<3  /I  sets  >  COACIG  A  1  NIC 

HINDI  II  SOI 

/CORCIG/I  • 

)  CORCIG  k  REAL 

ROT  1  NS 

/INTROT/I  • 

1  INTROT  N  REAL 

ROTINS 

/TGAP  /!« 

>  TGAP  M  AE AL 

ir  ap»  n  a. oi-)» 
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FORTRAN 

SvniOC 


MTn 

SVHtOt 


DESCRIPTION 


niRir 


s«« 


sen# 


SCRNBR 


SCANCH 


SCONS 


Star**  all  the  pertinent 
Identification  vcrlablas  far  any  tea 
Identical  ligands.  If  ana  ef  these 
ligands  has  been  thus  Identified 
previously.  It  is  bypassed  end  only 
the  variables  for  the  other  ligand 
are  stored. 

Locates  and  Identifies  all  atoms 
bonded  to  core  atom  KT  of  group  KT 
ahlch  have  not  yet  been  scanned  and 
stores  pertinent  data  of  ligand  In 
IX.  It  also  rearranges  data  of 
group  KT  In  IX  such  that  data  of 
core  species  are  stored  first 
folloaed  by  data  of  non-core 
species. 

Computes  the  atomic  composition  of 
all  ligands  bonded  to  a  branch  atom 
and  establishes  the  similarities  of 
said  ligands  providing  the  branch 
atom  Is  not  a  ring  atom. 

Computes  atomic  composition  of  all 
ligands  bonded  to  a  chain  atom  and 
establishes  the  similarities  of 
these  ligands  providing  sold  chain 
atom  Is  not  a  ring  atom. 

Entropy  constant . 


/Sant  /( a 


/scan  /<» 


/scan»r/< » 


/SCaNCH/l s 


/TGaf  /(• 


»  eoual  s  Sant 

Sant  t  Sant 

$t rue  s  sane 


t  scan  s  scan 

st*no  s  scan 


t  scanbr  t  scaNaa 

svnrav  s  ic<Nsa 


>  SCANCH  E  SCANCH 

svnrav  s  scanch 


>  TGAF  W  REAL  SCONS 


Staac:i 


strua 


Integer  function  flag.  /iearcm/is 

=0  a  data  match  for  computad 
group  eelght  ROLUTIk]  hat 
baen  found. 

=1  no  match  found,  computad 

■eight  belom  ranga  of  data 
group  Mtlghta. 

=•1  no  match  found,  computed 

■eight  above  range  of  data 
group  mtlghta. 

Processes  tha  comparison  of  ligands  /setup  /( s 

bonded  to  the  seme  or  to  different 

core  etoms  by  first  compering  their 

atomic  compositions.  If  tho 

compositions  ere  the  same  end  both 

ere  non-core  ligands,  they  ere 

Identical  but  If  the  llgendt  ere 

non-core  atom*,  their  Identity  must 

be  checked  further. 


>  SEARCH  0  SEARCH 

TGAP  r  SEARCH 


EITHOT 

5STUP 

SCANSB 

S 

setup 

SCANCH 

S 

SETUP 

SETUP 

t 

SETUP 

SVHRNO 

s 

SETUP 

ir  mb  ii  e.oi-st 
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FORTRAN 

NATH 

DESCRIPTION 

subroutine  usage 

SvnSQL 

tvmtOL 

arses  toe  sub*  n»r(  *a*st»? 

SMUT 

D»ta  contained  In  column  j  =  2  of 
IX(JC,j,k)  Is  sol  tehed  mlth  that  af 
core  atom  KC. 

/SHIM  /«» 

>  C0RCI8  S  SHIFT 

1  MIDST  S  SHIFT 

SHIFT  I  SHIFT 

STDNO  S  SHIFT 

SN 

Floating  point  equivalent  for  the 
symmetry  number. 

/ENTSVN/I  • 

>  EMTSVM  M  REAL  SM 

softs 

Total  contribution  to  the  entropy 
due  to  optical  Isomerism. 

/CODiMG/l  « 

1  CORCIS  1  DEDL  SOFTS 

sorts 

Total  contribution  to  the  entropy 
due  to  optical  Isomerism. 

/ENTSVN/t* 

1  ENTSVN  0  DEDL  SOFTS 

sortse 

Computed  value  for  the  contribution 
to  the  entropy  due  to  optical 

1  earner  1 sm. 

/ENT  5YH/<  * 

)  ENTSVfi  u  REAL  FOFTSC 

sorts  I 

Cntropy  contribution  due  to  optical 
Isomerism  computed  from  Input  data. 

/ENTSYn/f • 

>  ENTSVN  M  REDL  SOFTSI 

SOANSI 

Controls  the  search  for  gauche  and 
els  Interactions  In  tshieh  ona  or 
both  of  the  central  atoms  are  non* 
aromatic  ring  atoms  and  for  their 
contributions  If  these  Interactions 

/SORNGI /< ft 

>  CORCIS  S  S0RN6I 

SORNSI  E  SORNQI 

o c e  ur  . 

SAINS 

Total  of  ring  contributions  to  the 
entropy . 

/COACIG/<* 

>  CORCIG  W  REAL  cilNB 

SAINS 

Sum  of  ring  contributions  to  the 
entropy  . 

/CRINGS/C* 

>  CRINCS  n  RE»t  SHINS 

sdimo 

Sum  of  ring  contributions  to  the 
entropy . 

/HE  XGON/I  u 

)  HE  MGON  f!  REAL  SR  1  NS 

SDIMO 

Sum  of  ring  contributions  to  the 
entropy . 

/nr  I  r  ,/<• 

>  NRINGS  m  REAL  SRINS 

SSN 

Total  contribution  to  th  entropy 
due  to  external  rotstlir:l  symmetry 

/CORC 1 G/<  * 

»  CORCIG  1  REAL  SSN 

SSN 

Total  contribution  to  tne  entropy 
due  to  eiternel  rotatloial  symmetry. 

/entsvn/i* 

1  ENTSvn  0  REAL  S >N 

SSNC 

External  rotational  en.ropy 
contribution  computed  l /  progrsm. 

/ENT5vn/< • 

)  ENTSVN  W  RE  A)  ssme 

SSNI 

External  rotational  entropy 
contribution  computed  from  Input 
data. 

/ENTStn/C  ® 

>  ENTSVN  U  REAL  SSNI 

SStM 

Total  contribution  to  the  entropy 

/ClACIQ/T • 

1  CORCIS  0  DEAL  ssvm 

from  second-order  I  nter sc , t on s,  ring 
corrections,  symmetry  »nJ  c  tltll 
I somer i i*. 


ir  dm  ri  s.oi-is 
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SOATAAN 

SVROOt 

ssy« 

ST 

STAND 

SUN 

SUN 

SUMATn 

SUN! 

sum 

SYMSL 

SYMBOL 

SYMAMt 


ir  am  m 


MATN 

SYMBOL 


DESCRIPTION  -itOTir 


<  i » 


<  i  > 


<  i,j> 


<  i  > 


Sum  tot«l  of  correction*  to  the 
entropy  at  298*K  derived  froM 
taction  3  of  the  program. 

teal -dag*  * -mo  I  a'* 1 
Entropy  of  molecule  for  tanparaturas 
apaclflad  In  TARflAV. 

teal -dag** -mole** J 
Control  routlna  for  taction  1  of  tho 
prograM.thlt  taction  Idantlflat  the 
groups  and  group  eoaponantt  of  the 
Molaeult  at  nail  at  the  atomic 
coordinates,  bond  vectors  and  bond 
types.  The  group  Heights  art  alto 
assigned.  For  tone  unsaturated  ring 
compound*  the  latter  It  altered  In 
taction  3  of  the  prograa. 
Identification  Height  of  each  group 
I n  the  d  at  a  I  I br ary  . 


I  dent  I f I e at  I  on  Haight  of  particular 
group  contained  In  data  library. 

Adds  or  subtracts  (mhen  KP=  I  or  -1 
respectively)  the  number  of  each 
element  present  In  the  chemical 
symbol  represented  by  PI  to  the 
location  astlgned  that  particular 
atom  In  array  unatM. 

Sun  of  symbol  code  numbers  of  carbon 
atons  one  and  Tho. 

Sum  total  of  core  atoms  bonded  to 
carbon  atoms  one  and  tno. 

Contains  character  I  of  multl- 
eharacttr  program  library  symbol  j. 
The  description  and  order  of  these 
symbols  correspond  to  those  of  the 
single  sord,  mu  1 1 1 -char acter 
Hollerith  program  library  symbole. 
Chemical  symbol  for  fitments  end 
radicals  contained  In  the  program. 


/isna  /(•  i  tone  i  Am  ssvn 


mss  /<  Itlll  fGAA  n  SEAL  ST  (let 


/STAND  /<t  >  STAND  t  STAND 

TGAR  S  STAND 


/BLST  /!  1  )  DAT  At 

0 

INTE 

SUM 

I  ISO) 

GAOATA 

1 

INTE 

SUM 

t  ieo> 

TGAA 

C 

INTE 

sun 

1  ISO) 

/SEAACH/t  • 

1  SEARCH 

1 

INTE 

Sun  nso> 

/SUMATn/l  S 

)  I0ENT 

S 

SUMATN 

SCAN 

S 

SunATn 

SCANBR 

s 

SUMATn 

SCAWCH 

s 

SUMATM 

SUMATN 

E 

SUMATM 

SVMTRY 

s 

SUMATn 

/OITERE/!  • 

>  OITERE 

w 

INTE 

SUMI 

/OITERE/I.  )  OITERE  U  INTC  SUM 


/BULTI  /<*  )  nULTI  C  INTE  SVMBI.  tS.AI 


/BUI  /I  7  >  (DENT  I  INTE  SYMBOL!  •> 
AAINT1  I  INTE  SYMBOLIST 
TGAR  0  INTE  SYMBOL! • I 


Computes  the  asternal  rotation 
symmetry  number  of  aromatic, 
monocyclic  bamene-type  structures. 


/SVMANG/!  t  )  EITAOT  S 
SV.IAN6  I 


SVMRNB 

SVMBNI 


e.ei*sa 
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SvmTAV 


svm*  <  I  1 


Control*  the  operetlon  which  find*  /svmTAv/< 

the  atomic  composition  of  «*ch 

llqand  of  eeeh  cor*  atom  In  the 

molecule-  If  the  cor#  atom  Is  not  a 

ring  atom,  the  routine  determine* 

whether  It  po*»***e»  Identical 

1 1 g*nd» . 

Contain*  symbol*  for  bond  type*  and  /*L*1  '< 

b  I  ante . 


>  conct#  s 
svmiar  ( 


svntav 

svmTAV 


1)  BONO  i  inte  svm 
I  DENT  I  INTE  SVM 
NURBEft  I  iNTE  SVN* 
SCAN  I  INTE  SVM 
STAND  I  INTE  SVM 
TGAP  0  INTE  svm* 


111 
I  A  ) 
(At 
I  A  I 
(At 
I  A) 


S2AO  (  I  ) 

TAAAAV  (  I  ) 

TCIS 

TGAP 


TOUT  C  I  ) 

TVfE  (  I,  J  > 

NEICNl  <  I  ) 

.UNO*. 


Entropy  at  298*K  of  each  group  In 
the  data  library. 

teal -deg'1 -mole*1 13 

Temperature  values  used  to  compute 
end  output  thermoeheml cal  data. 

Moating  point  equivalent  of 
variable  IC1S. 

(Iain  or  control  unit  of  the 
thermochem I e  a  I  group  additivity 
program.  It  print*  out  data  library 
( opt  I ona I  ), r e ad s  Input  data,  print* 
outstructura!  Input  data,  transfer* 
control  to  3  main  section*  of  the 
program,  and  compute*  and  print*  out 
thermochemical  propertle*  of 
mo  I  ecu  I o 

Output  legend  that  specif!**  whether 
property  printed  bis  Input, 
computed,  or  I*  not  computebl*. 
Contains  legend*  that  describe  the 
type  of  *econd-ord*r  Interaction  to 
be  printed. 

Identification  numbar  assigned  each 
e  1  ement  and  radical . 


/»l«t  a 


3*1 »  OATAl  D  REAL  S2t* 

GADAT A  I  HEAL  S2V* 

tgap  i  real  see* 


I  I  so  > 

(  S  90  S 
I  110  » 


/TGA*  /<• 

/COACIG/I  • 

/TGA*  n  * 


)  TGAP  C  DEAL  TAMAV11A1 
)  C0AC1G  U  AEAL  TCIS 
)  TGAP  E  TGAP 


/ENTSVR/1  » 

/COACIG/1* 

/#t*2  /• 


)  EKTSVR  C  BEAL  TOUT  *  Ul 


)  COACIS  C  AEAL  TYPE  <•*,#> 


1  >  DELTA!  I  INTE  WEIGHT!*! 
TGAP  0  INTE  WEIGHT!*! 


Description  not  Input 


/  .  UNO*  .  /<  *  >  TBAP 


. UNO* . 


IT  APA  TJ  O.OI-S* 


yiv  prrpn’  i'MWi 


“  i  i’i|'ijr'svTvM 


•  ”  n*  t--- r «»?’-T>.-»rrcyr.»?'w?wwrw 


fOATAAN  HATH 

SvnfiOL  SVNOOL 


luVr-^a- 


DESCRIPTION 


.UNO*. 


Description  not  Input 


/.unoo. /i e 


>  oono  o 

CNAINN  0 
COUCH  0 
OITEAE  0 
ENTiV  0 
EOUAl  0 
PINO  0 
HAST*  0 
6A0ATA  0 
tOENT  0 
nuiCNN  0 
PAINT!  0 
PAINT!  0 
SCAN  0 
STAND  0 
SVNTAV  0 
TBAP  0 


•UNO*. 

.UNO*. 

•UNO*. 

.UNO*. 

.UNO*. 

.UNO*. 

.tmo*. 

,u*o». 

.UNO*. 

•UNO*. 

.UNO*. 

.UNO*. 

.UNO*. 

.UNO*. 

.UNO*. 

•UNO*. 

.UNO*. 


IT  APA  75  0.01*1* 
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